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INTRODUZIONE 


Benvenuti, amici esploratori, nel mondo dello Spectrum. 

Che mondo affascinante è mai questo! Un mondo di cui potrete ave¬ 
re il controllo totale. Questo libro tratta il linguaggio BASIC usato dal 
Sinclair Spectrum e completa, in tutto e per tutto, l’ottimo manuale in 
dotazione allo Spectrum stesso: 

— esaltando alcuni concetti fondamentali della programmazione in BA¬ 
SIC che, secondo l’esperienza dell'autore, i neofiti stentano ad ap¬ 
prendere: 

— esplorando le caratteristiche principali del BASIC dello Spectrum 
come l’alta risoluzione grafica, il suono e i colori; 

— mostrando come lo Spectrum possa essere usato per i giochi, affari 
e altre applicazioni ancora; 

— provvedendo a fornire un valido supporto di programmi per illustrare 
i punti di cui sopra; 

— tendendo ad essere una fonte di idee per creare programmi vostri. 

Se la vostra attenzione è rivolta ài programmi dei giochi, a quelli de¬ 
gli interessi personali o ancora a quelli di applicazioni ingegneristiche, 
ecco il libro che fa per voi. 

Mi auguro, comunque, che lo stimolo più forte che trarrete da queste 
pagine sarà appunto quello di voler comporre nuovi programmi, adden¬ 
trandovi nei misteri di questa meravigliosa macchina. 

MIKE LORD 
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Alcune precisazioni circa i programmi riportati in questo libro: 

— tutti girano sullo Spectrum da 16 K, sebbene alcuni possano risultare 
più utili se ne avete uno da 48 K; 

— il numero zero è scritto “0” per distinguerlo dalla lettera "0” nei li¬ 
stati del programma; 

— fate attenzione a non confondere il numero 1 con la lettera minusco¬ 
la “I”. In caso di dubbio confrontatelo con il numero 1 che appare al¬ 
meno in un numero di riga del listato; 

— le keyword (cioè le parole riservate del BASIC) sono state scritte in¬ 
teramente in maiuscolo nel testo: 

RUN GO TO PI 

ricordate che vengono ottenute sullo Spectrum premendo un solo ta¬ 
sto; 

— anche le funzioni “>=” e “< >” sono ottenute battendo un 

singolo tasto; 

— i caratteri grafici standard sono stati scritti come appaiono sullo 
schermo; il simbolo rappresenta il carattere del tasto 6. Qualora 
vi fossero delle difficoltà nel riconoscere i caratteri o siano stati im¬ 
piegati caratteri definiti dall’utente, il listato del programma sugge¬ 
rirà quale carattere usare: 

— lo Spectrum ignora gli spazi, a meno che questi non siano tra virgo- 
lette. 
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CAPITOLO 1 

PARTENZA! 



Imparare ad usare il computer è pressapoco come iniziare a orien¬ 
tarsi in una città sconosciuta. Ciò che importa all’inizio sono le vie prin¬ 
cipali. Ma più tardi dovrete esplorare le vie laterali e le altre zone della 
città. Questo libro vuole essere una scorciatoia per raggiungere in bre¬ 
ve tempo la via desiderata. 

Se volete evitare di perdervi troppo spesso è utile avere una carta to¬ 
pografica della città o una guida che vi possa segnalare le cose che 
meritano di essere viste, ma è il desiderio di esplorare e di fare espe¬ 
rienza che vi devono spingere a continuare da soli. 
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COMPUTER? 



La parola “computer", può venire attribuita ad una grande quantità di 
dispositivi a partire dal semplice pallottoliere fino a raggiungere il para¬ 
noico HAL del film “2001 Odissea nello spazio”. La caratteristica co¬ 
mune è quella di essere macchine in grado di manipolare dati. Cosi, co¬ 
me l’addetto ad un deposito di legname manipola il legno, selezionan¬ 
dolo, accumulandolo e perfino cambiandone le dimensioni, nello stesso 
modo il computer manipola i dati, che possono essere prezzi di prodot¬ 
ti, elenchi di numeri di targa di macchine rubate o qualsiasi altra cosa. 

Possiamo definire un po’ meglio lo Spectrum dicendo che è un "cal¬ 
colatore elettronico digitale programmabile” che cioè manipola i dati 
sotto forma di cifre. I computer “analogici”, per contro, lavorano diret¬ 
tamente con il valore delle variabili, non con i numeri che rappresenta¬ 
no questi valori. Lo Spectrum accetta lettere dell’alfabeto e altri simboli 
che al suo interno vengono rappresentati da numeri. 

Dicendo che lo Spectrum è “programmabile” abbiamo sottolineato 
una caratteristica molto importante. Per programma intendiamo un e- 
lenco di istruzioni che noi diamo al computer per fargli fare ciò che vo¬ 
gliamo. Il punto cruciale è che si può memorizzare nello Spectrum 
quella lista di istruzioni perché venga eseguita quando si vuole. 

Per scrivere, ad esempio, un programma atto a fargli risolvere pro¬ 
blemi matematici, dobbiamo inserire le istruzioni ad una ad una. Il 
computer le accetterà, sequenzialmente, ponendosi ogni volta in attesa 
dell’istruzione successiva. Una volta caricato l’intero programma, il 
computer lo leggerà rapidissimamente ripetendo più volte e automati¬ 
camente, i “loop” (gli anelli) di istruzione insiti nella lista. Tra le altre 
cose, il computer può rileggersi l’intero programma senza che dall’e¬ 
sterno gli venga dato alcun comando specifico; così come può regi¬ 
strarlo in una memoria di massa esterna, quale può essere un nastro 
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magnetico o un disco. Tale prerogativa risulta assai utile per poter ri¬ 
chiamare i programmi, in caso di necessità, che possono essere modi¬ 
ficati o corretti a piacimento senza dover stendere nuovamente l’intero 
listato. Con la procedura di ‘Editing’ è possibile infatti cambiare anche 
una singola istruzione lasciando inalterato il resto del programma. 


COS’È UNA MEMORIA? 

Come si può vedere sul manuale di programmazione, lo Spectrum 
possiede due tipi di memoria: la ROM e la RAM. Per aiutarvi a capire 
che cosa siano, è necessario dare una rapida occhiata a quello che è il 
cuore della macchina, ovvero il chip del microprocessore Z80. Si tratta 
di un integrato veramente complesso, che svolge i calcoli richiesti du¬ 
rante lo sviluppo del programma, in un tempo minimo dell’ordine di un 
milione di istruzioni al secondo, ma che non è in grado di capire il lin¬ 
guaggio BASIC. Le istruzioni gli vengono infatti presentate molto più 
dettagliatamente sottoforma di "linguaggio macchina”. 

La ROM (Read Only Memory = Memoria a sola lettura) contiene nu¬ 
merose routine scritte in linguaggio macchina, routine che, per tutto 
il tempo che il computer resta acceso, vengono esplorate dallo Z80 per 
permettere l'esecuzione delle logiche principali, che sono: 

— permettere l’accettazione e l’editing del vostro programma: 

— far girare il programma in BASIC. A questo scopo la ROM agisce da 
interprete trasformando le varie istruzioni inserite, in BASIC, dalla 
tastiera in linguaggio macchina; 

— provvedere alla registrazione dei programmi su unità esterne o cari¬ 
carle da queste nella memoria locale: 

— fornire i segnali di scrittura per il video o la stampante. 

Tutte queste informazioni vengono inserite nel chip della ROM diret¬ 
tamente dal costruttore e non possono venire né cancellate né modifi¬ 
cate (da qui il nome ROM) ma solamente lette. 

La RAM (Random Access Memory = Memoria ad accesso casuale) 
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invece, è molto più flessibile. Rende possibile, oltre alla lettura, anche 
l’alterazione dei dati in essa memorizzati scrivendone di nuovi. 

L’unico svantaggio delle RAM è la volatilità del loro contenuto che va 
irrimediabilmente perso ogniqualvolta venga a mancare l’alimentazio¬ 
ne. Come riportato nel capitolo 24 del manuale, essa è suddivisa in di¬ 
verse aree, le più importanti delle quali sono: 

— l’area relativa al display e ai caratteri, che viene letta continuamente 
da un circuito per generare il segnale video. Contiene campioni dei 
caratteri e dei simboli che appaiono sullo schermo accompagnati 
dalle informazioni (attributi) relative al colore e alla luminosità delle 
varie zone deH'immagine; 

— l’area destinata alle variabili di sistema e ai diversi stack usati dallo 
Spectrum per tenere nota dell’attività del computer in ogni momen¬ 
to; 

— l’area del BASIC accoglie i programmi inseriti dall’utente; 

— l’area delle variabili rimane a disposizione per le variabili di program¬ 
ma. 


Bit, Byte e K 

I neofiti del computer potrebbero rimanere assai perplessi dinanzi al 
modo in cui viene misurata la memoria: tutto ciò che si riferisce ai "by¬ 
te” e ai “K” a prima vista appare piuttosto confuso. La spiegazione in 
realtà è molto semplice; la memoria è organizzata in modo tale da a- 
dattarsi alle esigenze dei microprocessore che, essendo un dispositivo 
binario, si trova a suo agio solo con le potenze di 2. Possiamo immagi¬ 
nare il banco di memoria di un computer come una lunga fila di cellette 
identiche, ciascuna delle quali numerata con numeri crescenti, in modo 
che il microprocessore possa usare tali numeri (o “indirizzi”) per sele¬ 
zionare quella che gli interessa. In ogni locazione (“celletta”) risiede 
un numero binario formato da 8 bit (Binary digit) ognuno dei quali 
può assumere il valore "0” o “1”. Il gruppo degli 8 bit, è conosciuto col 
nome di “byte”. Se ne deduce che sono possibili 256 (2 elevato all’otta¬ 
va) combinazioni degli otto ”1” o “0” per cui ogni locazione può rac¬ 
chiudere un numero intero decimale compreso tra 0 e 255. Lo Spec- 
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trum, comunque, può manipolare sia numeri posti al di fuori di questa 
gamma, sia frazioni, usando un gruppo di 5 byte come descritto nel 
capitolo 26 del manuale. Il microprocessore Z80 può elaborare in totale 
65536 (2 elevato alla sedicesima) differenti locazioni di memoria, il pri¬ 
mo quarto delle quali prelevabili dalla ROM e le restanti, a seconda del 
modello, possono essere parzialmente o totalmente prelevate dalla 
RAM. Una abbreviazione idonea per esprimere la quantità di memoria, 
'è la lettera "K” che sta per 1024 (2 elevato alla decima). Lo Spectrum 
possiede complessivamente 64 Kbyte di memoria dei quali 16 K desti¬ 
nati alla ROM e 48 K alla RAM. 


BASIC 

La parola BASIC è un acronimo di “Beginners All Purpose Symbolic 
Instruction Code” e si riferisce ad un linguaggio sviluppato al Dar- 
tmouth College (U.S.A.) negli anni ’60 per consentire un facile approc¬ 
cio all'Informatica. Altri linguaggi, più complessi e sofisticati come 
quelli sottoelencati non sarebbero alla portata dei neofiti: 

— FORTRAN: uno dei primi linguaggi; è adatto alla gestione di problemi 
matematici: molti programmi scientifici e di ingegneria vengono an¬ 
cora scritti in questo linguaggio; 

— COBOL: è un linguaggio vecchio ma molto potente per applicazioni 
commerciali; è impiegato sui grossi computer; 

— PASCAL: simile al più vecchio “Algol", è nato con carattèristiche 
“accademiche”, ma è via via cresciuto in popolarità fino ad ottenere 
serie applicazioni sui microcomputer. È un linguaggio formale strut¬ 
turato, idoneo a manipolare tipi diversi di dati. 

— LISP: è uno strano linguaggio sviluppato neH’ambito delle ricerche 
suU’inteliigenza artificiale. Di fatto è un linguaggio per il trattamento 
delle stringhe e il suo apprendimento implica cambiare il modo di ve¬ 
dere i problemi; 

— FORTH: molto apprezzato da alcuni, è profondamente odiato da al¬ 
tri. Le sue principali caratteristiche sono la totale incomprensibilità 
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per chi non sia un abile programmatore in FORTH e la sua capacità 
di definire nuove istruzioni. 

Come tutti gli altri linguaggi, anche il BASIC vuole essere una via di 
mezzo tra il linguaggio umano e quello assai restrittivo della macchina. 
La trasformazione del BASIC in linguaggio macchina spetta alle routine 
deH'"Interprete BASIC” che risiede nella ROM, mentre la traduzione 
del programma dal linguaggio umano al BASIC è a carico vostro. 

Il BASIC è disponibile su quasi tutti i computer e probabilmente è il 
linguaggio più usato. Tuttavia, curioso a dirsi, tutti i tentativi di standar¬ 
dizzarlo sono falliti. Sembra che ogni computer abbia la sua versione 
del BASIC, con dei potenziamenti spesso utili e comunque sostenuti da 
una pubblicità sfrenata. Il BASIC dello Spectrum, abbastanza potente, 
si avvale di un vocabolario di circa 90 parole che vengono usate per 
formare gli statement. Ogni statement (o frase di programma) è un’i¬ 
struzione da inviare al computer per fargli svolgere determinate funzio¬ 
ni. Più statement posti in successione formano il programma BASIC. 
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CAPITOLO 2 

PRINT E PROGRAMMI 


La parola PRINT (scrivi) è molto importante nel linguaggio BASIC in 
quanto rappresenta per il neofita un punto di partenza ideale mostrando 
immediatamente quello che fa. 

Accendete ora il vostro Spectrum e vedrete apparire verso il basso 
dello schermo la scritta inerente al copyright. Battete ora: 

PRINT 123 

(La parola PRINT viene inserita semplicemente azionando il tasto P). 
In questa fase vedrete visualizzato quanto avete battuto sullo schermo 
in basso, seguito dal cursore lampeggiante. Questa posizione della 
scritta sta ad indicare che lo Spectrum lavora in Editing, vale a dire che 
è in attesa che siate sicuri dell’esattezza di quanto battuto. Quando sie¬ 
te soddisfatti di ciò che avete battuto, premete ENTER. Nel nostro ca¬ 
so, sparirà la scritta presente verso la parte bassa del display per far 
posto a 

123 

nell’angolo in alto a sinistra, che non è altro che il risultato di quanto 
chiesto. In basso a sinistra ecco ora 

0 OK > 0:1 

che costituisce il ‘rapporto’ dello Spectrum il quale avverte di aver ese¬ 
guito il programma senza errori. Provate ad inserire un altro statement 
di PRINT, ad esempio 

PRINT 456 

e vedrete apparire, dopo aver dato l’ENTER, il numero 456, sempre sul¬ 
la sinistra dello schermo, appena al disotto del 123. 
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Questo dimostra che il risultato del PRINT precedente rimane anche 
eseguendo PRINT successivi. Per cancellare tutto, è necessario, in¬ 
questo caso, dare un secondo ENTER. Provate. 

Risulta anche evidente che ogni PRINT usa una nuova linea di scher¬ 
mo. Questo, però, non è del tutto vero; la posizione di scrittura viene in 
realtà determinata dal computer in modo più flessibile, perché lo Spe- 
ctrum si ricorda il punto in cui ha scritto l’ultimo carattere. A schermo 
libero, la prima posizione di scrittura risulta, come abbiamo appena vi¬ 
sto, nell’angolo in alto a sinistra e, con semplici PRINT, si sistema via 
via all’estrema sinistra di ogni nuova riga. 


J 

È possibile evitare questo salto a nuova riga cambiando leggermente 

10 statement PRINT. Inserite i seguenti comandi: 

PRINT 12; 

PRINT 34 

Come risultato si otterrà, nell’angolo a sinistra, il numero 1234; infatti 

11 punto e virgola alla fine del primo statement PRINT dice allo Spe- 
ctrum di non andare a capo ma di ricominciare a scrivere dal punto in 
cui è, cioè dopo il 2. Cosi nei quattro comandi che seguono: 

PRINT 0; 

PRINT 12; 

PRINT 34; 

PRINT 5 

ogni punto e virgola posto alla fine degli statement stabilisce la posizio¬ 
ne della cifra successiva. 


f 

Se al posto del punto e virgola, mettiamo una virgola (,) variamo la 
posizione di scrittura spostandola: 

— al centro della linea se il carattere precedente si trova prima del 
centro; 
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— a capo sulla linea seguente, se l’ultimo carattere si trova al centro od 
oltre. 

Questa accortezza ci permette di scrivere su due colonne ben distin¬ 
te; provate ad inserire i quattro comandi. 

PRINT 0, 

PRINT 12, 

PRI NT 34., 

PRINT 5 

Separatori 

Dopo la parola PRINT possiamo inserire anche più di un numero, a- 
vendo cura di separare le cifre per mezzo di una virgola o di un punto e 
virgola: una virgola porterà la posizione di scrittura all’inizio della riga o 
al suo centro: 

PRINT 1,23,456.,? 

mentre il punto e virgola significa che la posizione di scrittura non deve 
essere spostata: 

PRINT 1:23:456;7 

Questo potrebbe sembrare inutile, in quanto è possibile ottenere lo 
stesso risultato nel modo seguente: 

PRINT 1234567 

Ma vedremo più avanti come il punto e virgola sia un segno separa¬ 
tore importantissimo quando si scrivono cose più complesse che nu¬ 
meri. 

Un terzo separatore è l’apostrofo (’) che trovate riportato in rosso sul 
tasto 7. Esso sposta la posizione di scrittura all’inizio della linea se¬ 
guente; provate a battere: 

PRINT 1'23" 456' 7 

tenendo presente che ogni singolo apostrofo alla fine di uno statement 
di PRINT viene ignorato. 
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TAB 


Questa parola permette la scrittura In qualsiasi posizione lungo una 
riga. Più precisamente “TAB n” sposta in avanti di 'n’ colonne la posi¬ 
zione di scrittura, essendo le colonne numerate da 0 (la prima a sini¬ 
stra) a 31 (l’ultima sulla destra). Se la posizione di scrittura ha già su¬ 
perato la colonna ‘n\ si sposterà di ‘n’ colonne sulla linea seguente. 

Se invece ‘n’ supera 31, lo Spectrum sottrae automaticamente da es¬ 
so il valore 32 fino a che ‘n’ non rientri nella gamma 0/31. 

TAB n può essere inserito in uno statement di PRINT e deve essere 
seguito da un senso separatore, di solito il punto e virgola, in quanto 
qualsiasi altro segno annulla l’effetto del TAB. Provate a battere: 

PRINT 1TRB 2;2;TRB 1;3 


AT 

TAB muove la posizione di scrittura entro una riga, partendo dal pun¬ 
to in cui questa si trovava in precedenza. AT y,x è molto più potente 
poiché può spostare la posizione di scrittura su qualsiasi colonna (x) e 
su qualsiasi riga (y). I valori di x e y vanno sempre separati da una vir¬ 
gola ed anche qui le colonne sono numerate da 0 a 31. Per quanto ri¬ 
guarda le linee, lo Spectrum ne visualizza 24 ma le due situate in basso 
sono riservate ai messaggi del computer e ai vostri input; in tal modo il 
numero delle linee utili cala a 22 (0 per la prima in alto, fino a 21). 

AT y,x come già per TAB, può essere inserito in uno statement di 
PRINT seguito dal punto e virgola. Digitate 

PRINT RT 10,0;10;RT 9, 1;9 

e qualsiasi altra cosa vi venga in mente. 

Nello stesso statement di PRINT possono essere mescolate combi¬ 
nazioni di numeri, segni separatori, funzioni TAB e AT, considerando 
come unica regola che un segno separatore è inserito fra ciascuna 
coppia di parole e che i valori associati a AT e TAB devono essere si¬ 
gnificativi. 

Provate, dopo aver dato ENTER per pulire lo schermo, ad inserire 
PRINT 1 ;RT 21,31;2;RT 10,15;3;TRB 31;4,3 
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Semplice Editing 

L’esempio precedente era piuttosto complicato e, probabilmente, 
quando avete battuto l’ENTER, sullo schermo dello Spectrum è apparso 
in tutta risposta soltanto un punto interrogativo lampeggiante in campo 
nero in qualche punto della riga. Questo significa che lo Spectrum ha 
trovato un errore di sintassi su quella riga. Il punto interrogativo è posto 
dove si presume sia stato commesso l’errore, ma non sempre lo Spe¬ 
ctrum ci "azzecca”, quindi è meglio controllare l’intera riga. 

Se, tuttavia, siete stati molto precisi, lo Spectrum ha accettato il vo¬ 
stro messaggio, quindi potete provare a sbagliare volontariamente bat¬ 
tendo: 

PRINT RT 2;3;4 

Questa volta è sicuramente sbagliato! 

Avendo commesso un errore (dopo la cifra 2 ci sarebbe voluta una 
virgola e non un punto e virgola) bisogna procedere alla correzione. E 
qui entra in gioco il cursore lampeggiante contenente la lettera L. Nello 
stesso modo in cui i caratteri vengono inseriti, ogni volta alla sinistra 
del cursore con la L, questi possono venire anche cancellati, digitando 
contemporaneamente CAPS SHIFT e DELETE. 

In questo modo potete correggere l’errore cancellando a ritroso i ca¬ 
ratteri, fino a raggiungere quello incriminato e quindi ribattere nel modo 
esatto quanto cancellato. Ma c'è un sistema più semplice, in quanto la 
tastiera prevede due tasti per il movimento del cursore: il 5 (0 ) per lo 
spostamento a sinistra e l’8 (0) per quello verso destra. 

Premendo CAPS SHIFT e il tasto 5(0) contemporaneamente, spo¬ 
sterete il cursore di uno spazio a sinistra: analogamente, premendo 
CAPS SHIFT e il tasto 8 (0), lo muoverete di uno spazio a destra. 

In questo modo potete portare il cursore nella posizione immediata¬ 
mente alla destra del simbolo errato, senza essere costretti a cancella¬ 
re tutto ciò che si trova sulla destra di questo. 

Fatto ciò, la linea può venir fatta accettare dallo Spectrum con EN- 
TER, senza necessariamente riportare il cursore con la L alla fine della 
linea. Se la linea stessa risultasse piena di errori, è possibile cancellar¬ 
la completamente battendo contemporaneamente CAPS SHIFT e EDIT 
(tasto del numero 1). 
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Statement Multipli 

Nelle pagine precedenti siamo giunti a scrivere fino a quattro state¬ 
ment disposti su altrettante linee, ma è possibile, per risparmiare spa¬ 
zio, inserirli sulla stessa riga separandoli con due punti (:) 

PRINT 1 : PRINT 2 : PRINT 3 

statement 1 f statement 2\ statement 3 Statement. 

separatori 

In questo modo lo Spectrum eseguirà innanzitutto il primo statement, 
quindi il secondo e cosi via fino al termine della riga. Un comando assai 
usato è CLS, che cancella lo schermo e sposta la posizione di scrittura 
nell’angolo in alto a sinistra. Possiamo facilmente combinarlo con lo 
statement di PRINT nel modo seguente: 

CLS:PRINT 123 

Nel caso, invece, che il vostro comando fosse il seguente: 

PRINT 123: CLS 

probabilmente non avreste il tempo di vedere il 123 sullo schermo pri¬ 
ma che venga cancellato. 

Gli statement multipli pongono la domanda: "quanto può essere lun¬ 
ga una riga”? Per quanto riguarda il video, ogni riga è ovviamente limi¬ 
tata a 32 caratteri. 


Sovrapposizione 

Ci si può chiedere che cosa accade scrivendo in una posizione dello 
schermo già occupata da un altro messaggio. Provate ad esempio la 
seguente istruzione: 

PRINT flT 8,0;1234;RT 0,8;0 

darà come risultato 

8234 
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In questo caso, lo 0 si sistema al posto della prima cifra (1) senza in¬ 
fluenzare le rimanenti. Aggiungendo, invece, una virgola alla fine dello 
statement, otterremo come risultato 

0 

in quanto la virgola sposta la posizione di scrittura al centro della riga 
riempiendola di spazi; il discorso diventa molto più chiaro battendo le 
due righe seguenti: 

PRINT RT 0,13;123456 
PRINT RT 0,13;0, 

Il risultato sarà: 

0 456 

Tale metodo si rivela molto comodo quando sia necessario cancella¬ 
re una riga interamente o a metà: 

PRINT RT 16,0,, 
cancella l’intera linea 16. 

Lo stesso discorso vale per la funzione TAB, come si può vedere dal¬ 
l’esempio che segue: 

PRINT RT 0,0;123456 
PRINT RT 0,1;TRB 3;0 

in questo caso, il risultato sarà: 

1 056 

È possibile quindi cancellare una parte di linea: 

PRINT RT 16,10;TRB 14 

elimina le colonne da 10 a 13 della riga 16. Si noti che la funzione AT e 
l’apostrofo (’) influiscono sul display solamente spostando la posizione 
di scrittura, esattamente come l”'a capo” prodotto da un’istruzione 
PRINT che non termini con una virgola o con un punto e virgola. 
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Un programma 

Fino ad ora avete fatto eseguire allo Spectrum, premendo il tasto 
ENTER, i comandi in modo immediato, a cui il computer risponde pre¬ 
sentando il risultato e cancellando la linea di comando. Vediamo ora 
come il computer memorizza i programmi. 

La differenza tra una linea di comando diretto ed una linea di pro¬ 
gramma è che quest’ultima possiede un numero chiamato numero di ri¬ 
ga e compreso tra 1 e 9999. Il numero di linea, oltre a comunicare allo 
Spectrum che quella introdotta è una riga di programma, serve anche 
per farvi riferimento. 

Spegnete lo Spectrum per pochi secondi, riaccendetelo, aspettate la 
scritta di copyright e quindi battete: 

20 PRINT 12343 

Date l’ENTER e vedrete che questa volta non si presenterà la scritta 
12345, ma la copia della linea appena battuta si trasferirà nella parte 
superiore dello schermo. In questo modo, avete inserito in memoria 
una linea di programma senza aver chiesto al computer di eseguirla; 
per far ciò dovete battere il comando diretto: 

RUN 

(tasto R) seguito, come al solito, da ENTER. Ecco che nell’angolo in al¬ 
to a sinistra del display, apparirà 12345 ed in quello basso, sempre a si¬ 
nistra: 

0 OK, 20:1 

il quale rivela che il programma è stato eseguito correttamente (OK) ed 
è terminato alla linea 20, statement 1. 

Azionate nuovamente ENTER e la linea di programma riapparirà, 
premete nuovamente RUN e il programma verrà di nuovo eseguito; po¬ 
tete continuare all’infinito. Digitate ora quest’altra riga. 

10 PRINT 0 

date ENTER ed ecco che la nuova linea viene inserita prima della pre¬ 
cedente. Ciò è dovuto al suo più basso numero di riferimento, infatti è lo 
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stesso computer ad ordinare in modo crescente le linee senza tener 
conto della sequenza con la quale queste vengono introdotte. Battete 
una terza linea: 

30 PRINT 6 

e date il RUN: sullo schermo, in alto, apparirà: 

0 

12345 

6 

a dimostrazione del fatto che lo Spectrum esegue sequenzialmente le 
linee di programma in base all’ordine del numero di riga. 

Editing di Programma 

Come visto in precedenza, è assai facile modificare il contenuto di 
una linea di programma quando questa è scritta nella parte bassa dello 
schermo, ma come fare nel caso in cui sia già stata trasferita in memo¬ 
ria? Prendiamo il caso delle tre linee di programma appena viste: 

10 PRINT 0 
20 PRINT 12345 
30 PRINT 6 

sono già in memoria; ora, per esempio, battete: 

20 

Dopo aver battuto ENTER apparirà una nuova versione dei program¬ 
ma, priva della riga 20, essendo stata cancellata con l’operazione ap¬ 
pena eseguita. Pertanto, volendo eliminare una riga dal listato, sarà 
sufficiente battere il numero e dare l’ENTER, senza aggiungere" altro. E- 
seguite ora 

20 PRINT 3 

ed il programma tornerà si ad essere di tre linee, ma la linea 20 non è 
più quella di prima. Quest’ultima potrà essere però reinserita battendo 
nuovamente 

20 PRINT 12345 
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Ecco riottenuto il programma nella sua primitiva versione. 

Avrete sicuramente notato, a questo punto, la presenza del simbolo 
“ >” accanto ad una delle linee. È il cursore “Line Editor” che può esse¬ 
re spostato di linea in linea per mezzo dei seguenti tasti: 

— CAPS SHIFT assieme al 6 (-O) per lo spostamento verso il basso, al¬ 
la successiva linea di programma; 

— CAPS SHIFT assieme al 7 (O) per lo spostamento verso l’alto, alla 
linea precedente. 

Portatelo, ad esempio, in corrispondenza della linea 10 e premete 
CAPS SHIFT assieme al tasto 1 (EDIT). La linea interessata apparirà 
all’istante nella parte bassa dello schermo. 

A questo punto potrà essere modificata a piacere e reinserita imme¬ 
diatamente, semplicemente dando l’ENTER. Il cursore > può anche ve¬ 
nir spostato direttamente su una particolare linea per mezzo del co¬ 
mando diretto LIST. 

LIST 20 

porta il cursore alla linea 20. Questo comando si rivela molto utile in 
programmi lunghi. Listando una linea inesistente, il cursore scompare 
come potete constatare inserendo ad esempio 

LIST 13 

ma può venire richiamato o listando una linea esistente, oppure batten¬ 
do CAPS SHIFT unitamente ai tasti 6 o 7. Se volete cancellare l’intero 
programma, togliete l’alimentazione al computer per qualche secondo, 
per poi riaccenderlo, oppure battete semplicemente il comando diretto 

NEW c; tasto fl > 

Nell’introdurre programmi di una certa lunghezza, il listato non en¬ 
trerà più nel quadro del video, ma non spaventatevi, la parte esclusa 
non viene persa poiché lo Spectrum possiede un'area di memoria suffi¬ 
cientemente vasta per far fronte alle vostre necessità. 


16 



Stringhe 

Fino ad ora abbiamo scritto solamente numeri, ma è ovvio che è pos¬ 
sibile scrivere qualsiasi simbolo o carattere presente sulla tastiera. L’u¬ 
nico accorgimento da tener ben presente è che la scritta, di qualsiasi 
natura essa sia, va racchiusa entro due apici o virgolette (” visibili in 
rosso sul tasto P). 

Vedremo la ragione di ciò nel capitolo seguente, ora accontentia¬ 
moci di classificare qualsiasi cosa presente entro una coppia di apici 
come una “stringa di caratteri” che verrà stampata cosi come è stata 
inserita in fase di programmazione. 

Provate a battere la stringa che segue, formata esclusivamente da 
lettere: 

PRINT "POSSIBILITR' DELLO SPECTRUM" 
e poi quest’altra formata solo di numeri e simboli: 

PRINT "1+1-5" 

Come avete visto, lo Spectrum non riconosce la validità o meno di 
quanto racchiuso tra virgolette, ma stampa tale e quale tutto quanto 
compreso in quell’area. Inserendo: 

PRINT "Sono""andato""a casa" 

la parola “andato” si presenterà tra virgolette nell’ambito dell’intera fra¬ 
se compresa tra il primo e l’ultimo apice. É possibile battere più strin¬ 
ghe nello stesso PRINT separandole dai segni (;) oppure (,) oppure (’) 
come ad esempio: 

PRINT "O 99 I 9 ' "giovedì'"," giorno ";12 

Le stringhe possono comprendere anche caratteri grafici e scritte in 
negativo (bianco su nero), ottenibili usando i tasti INV VIDEO e TRUE 
VIDEO. 

LPRINT, LLIST e COPY 

Se possedete una stampante, potete provare gli esempi sin qui fatti 
sostituendo la parola PRINT con LPRINT (sopra al tasto C). Tenete pre- 
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sente che in questo caso, le parti di linea sottoposte alla funzione AT, 
non vengono stampate per cui interviene la necessità di rimpiazzare 
detta funzione inserendo una linea successiva. Il comando LLIST (so¬ 
pra il tasto V) abilita alla stampa dell’intero programma, mentre LLIST 
n stampa tutte le linee successive alla n. Il comando COPV è assai usa¬ 
to in quanto stampa unicamente la copia delle 22 linee visualizzate sul¬ 
lo schermo con una qualità migliore di quella resa dal LLIST per battere 
l’intero listato. 
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CAPITOLO 3 

VARIABILI, 

INPUT E ESPRESSIONI 


Negli esempi del capitolo precedente abbiamo imparato come scri¬ 
vere delle istruzioni che consentono di visualizzare lettere o numeri fino 
ad ora stampati possono essere considerati delle “costanti” in quanto 
composti: 

- da numeri come ad esempio 123 oppure 747; 

- da stringhe come può essere "Spectrum” (Il termine “literal” sarà a 
volte usato come "costante”). 

Nello scrivere un programma non sempre, però, è possibile cono¬ 
scere a priori il valore di tutti i numeri che verranno usati. Ad esempio, 
se ad un certo punto il programma chiedesse il nome e l’età dell’utente, 
noi dobbiamo essere in grado di accontentarlo anche senza conoscere 
in partenza tali dati. La soluzione è simile a quella adottata in algebra, 
vale a dire la rappresentazione di un’incognita tramite una o più lettere. 

Nell’esempio sopra citato, l’età dell’utente potrebbe essere rappre¬ 
sentata dalla lettera “a”. Diremo che “a” è una “variabile”, tenendo 
conto che qualsiasi variabile BASIC possiede due importanti caratteri¬ 
stiche: 

— il tipo; possiamo avere sia variabili numeriche che rappresentano un 
numero, sia variabili stringa che rappresentano un insieme di carat¬ 
teri; 

— il nome; risulta soggetto a regole molto restrittive che stabiliscono se 
il nome di una variabile è accettabile o meno; inoltre vari tipi di nomi 
distinguono i diversi tipi di variabile. 
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Ogni volta che viene introdotta una variabile, questa viene collocata 
automaticamente, tramite l’interprete BASIC, in una locazione di me¬ 
moria RAM dalla quale il computer la potrà richiamare, ogni qualvolta 
risulti necessario, per mezzo dell'Indirizzo. 


Variabili Numeriche 

Le variabili numeriche sono le più semplici e si riferiscono a dei nu¬ 
meri. Il nome di queste variabili può essere formato da lettere, da nu¬ 
meri o anche da intere parole; l’importante è che il primo carattere sia 
una lettera, ad esempio: 

A 

fl 

«2 

Record 
e non 
2 

2fl 

Lo Spectrum, tra l’altro, non distingue tra maiuscole e minuscole nel 
nome di una variabile; inoltre ignora gli spazi; per cui scrivere FRAN¬ 
CO, FRanco, franco, fraNCO oppure FRanco, è per lui la stessa cosa. 
Per poter usare una variabile, è necessario darle un valore. Il modo più 
semplice è quello di usare la funzione LET, per es.: 

Let fl-100 

che equivale a dire allo Spectrum: 

- crea in RAM lo spazio destinato alla variabile A; 

- memorizza in quello spazio il valore 180. 

Con le due linee che seguono 

10 LET fl-100 
20 LET fl-200 

alla variabile A verrà assegnato il valore 200, in quanto il secondo sta¬ 
tement va a sovrapporsi al primo, cancellandolo. 
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Battete ora di seguito una terza linea 
30 PRINT fi 

Osservate un attimo il comando sopra: in esso non si dice allo Spec- 
trum di battere la lettera A; per fare ciò, essa dovrebbe essere posta fra 
virgolette nel comando: 

30 PRINT "fi" 

mentre il comando precedente ordina allo Spectrum di scrivere il valore 
della variabile A. 

Vediamo che cosa accade chiedendo allo Spectrum di scrivere il va¬ 
lore di una variabile non ancora usata, introducendo il seguente co¬ 
mando: 

NEW 

che cancella dalla memoria qualsiasi tipo di programma ovariabile; in¬ 
serendo ed eseguendo il programma: 

10 PRINT B 

la risposta dello Spectrum sarà 
variable not found 


Semplici somme 

Lo Spectrum può addizionare due numeri senza alcuna difficoltà. 
Provate: 


10 LET a-5 
20 LET b«? 

30 LET c-a+b+2 
40 PRINT c 


Il risultato sarà ovviamente 14 (5+7+2). Variate ora la linea 30 per 
ottenere una sottrazione: 

30 LET c-b-a 
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oppure una moltiplicazione: 


30 LET c-*#b 
o, ancora, una divisione: 

30 LET c-b/2 

Chiunque abbia nozioni di algebra, potrebbe rimanere esterrefatto 
davanti ad uno statement BASIC del tipo 

LET a«*+i 

ma bisogna tener conto che il segno “=” non ha qui lo stesso significa¬ 
to di quello algebrico in quanto non stabilisce l’eguaglianza di due gran¬ 
dezze ma rappresenta una precisa istruzione per il computer: 

— ricava il valore dell’espressione posta alla destra del segno =; 

— e quindi attribuiscila alla variabile presente alla sua sinistra. 

L’esempio di addizione riportato qui sopra aggiunge infatti il valore 1 
alla variabile A. 

Lo Spectrum possiede anche l’operatore aritmetico “1” (sul tasto H) 
che sta a significare “elevamento a potenza di”. 

Ad esempio: 

«=; -t- p ,=• ■• ['equi v» Un t* di S * 5 

5 t- 4- e. ' l " e q u iva Lente di S*S*S*S 

Alla sinistra del segno “1" non vanno posti numeri negativi; 

( - 3 :■ T 2 

ha come risposta un messaggio di errore. 


Espressioni più complicate 

Non vi è alcun limite alia complicazione delle espressioni scritte alla 
destra del segno =. Ricordatevi, comunque, che le operazioni di eleva¬ 
zione a potenza (contrassegnate da T) vengono risolte per prime, se- 
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guite in ordine dalle moltiplicazioni e/o divisioni e dalle addizioni e/o 
sottrazioni. Per calcolare, ad esempio 

LET c*>*+b/'? 

lo Spectrum eseguirà prima la divisione b/7 e quindi addizionerà a al ri¬ 
sultato. Similmente: 

LET c-5+6*2-l 

assegnerà a c il valore 16 come conseguenza delle operazioni: 

5 

+ 6*2 
- 1 


É possibile ordinare al computer la priorità di particolari operazioni 
racchiudendo queste ultime tra parentesi come segue: 

LET c“< 5+6 >*2~1 

che avrà come risultato 21, e: 

LET c»< 3+6 >*<2-1 > 

che invece darà 11. 

Sebbene la tastiera disponga di diverse forme di parentesi, le uniche 
da usarsi nelle espressioni aritmetiche sono quelle tonde disegnate in 
rosso sui tasti 8 e 9. Può succedere anche di trovare parentesi racchiu¬ 
se... tra parentesi: 

<l+<2+3>*4>*5 

<1+ 3 *4>*5 

«< 1 + 20 >*5 

■ 21 *5 

- 105 

In algebra capitano spesso espressioni del tipo 

2 < *+b > 

le quali sottintendono implicitamente, tra la cifra “2” e la parentesi a si- 
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nistra, la presenza del segno di moltiplicazione; ciò in BASIC non è vali¬ 
do e la stessa espressione va scritta: 

2#< *.+b > 


In generale 

Il BASIC dello Spectrum è, in questo senso, estremamente agile: do¬ 
ve la sintassi dello statement richiede un numero, lo potete sostituire 
con un’espressione numerica, purché il risultato sia numerico. Poiché, 
come abbiamo visto nel capitolo precedente, la parola PRINT può es¬ 
sere seguita da un numero, se ne deduce che la stessa parola può es¬ 
sere fatta seguire da un’espressione numerica: 

PRINT 22+33 

Provate e vedrete che ciò è vero, come dimostrato dal seguente e- 
sempio: 

10 LET mir>“4 

20 LET m*x-10 

30 PRINT "Li m*dia e' " ; < rriin+roax V2 

INPUT 

Gli unici valori sui quali il programma ha lavorato finora sono stati 
quelli già compresi nel programma. Il comando INPUT permette di in¬ 
serire nel programma, durante l’esecuzione, i valori dati dall’operatore. 
Nella sua forma più semplice, uno statement di INPUT consiste nell’e¬ 
spressione BASIC “INPUT” (tasto I) seguito dal nome di una variabile: 

10 INPUT 9 . 

20 PRINT « 

Facendo girare queste due righe, lo schermo si cancella presentan¬ 
do solamente, nell’angolo in basso a sinistra, il cursore L lampeggiante. 
Ciò è dovuto allo statement di INPUT, che pone lo Spectrum in attesa 
dell'Immissione di un numero. Battetelo e date l’ENTER, lo vedrete spa¬ 
rire dalla parte bassa dello schermo per riapparire nell’angolo in alto a 
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sinistra. La riga 10, in effetti, non fa altro che attribuire ad “a” il valore 
che avete inserito. Provate ora ad immettere, anziché un numero, un’e¬ 
spressione numerica, ad esempio: 

22^2 

vedrete che il programma accetta l’espressione visualizzando il risulta¬ 
to. Il solo problema con questo breve programma è che non è molto “a- 
michevole” (in gergo tecnico si dice: “user friendly”). Sostanzialmente 
vi presenta uno schermo vuoto e aspetta che facciate la cosa giusta 
(cioè battere un numero). Questo metodo, adatto a programmi corti, 
come quello visto, non lo è per quelli più complessi, che richiedono più 
di un INPUT. Può essere necessario qualche PROMPT (richiesta) ogni 
qualvolta si debba inserire un valore. Naturalmente, potete usare uno 
statement di PRINT: 

10 PRINT "Inserisci il numero" 

20 INPUT n 

30 PRINT "Hai inserito";n 


Il comando INPUT può venire anche impiegato per visualizzare un 

messaggio; per far ciò bisogna considerare che: 

— un INPUT può essere fatto seguire da qualsiasi numero di elementi 
separati fra di loro nello stesso modo visto per lo statement di 
PRINT; 

— se un elemento inizia con una lettera, questa è considerata come il 
nome di una variabile e si mette in attesa che l'utente inserisca il re¬ 
lativo valore; 

— qualsiasi altra cosa viene battuta come se facesse parte di un 
PRINT, ma in basso sullo schermo. Potete usare anche TAB e AT, 
ma il numero in AT sarà quello di una riga della parte bassa dello 
schermo; 

— non appena eseguito lo statement di INPUT, il computer cancellerà 
tutto ciò che tale istruzione ha fatto visualizzare sullo schermo. 


25 



Ecco una dimostrazione: 


10 INPUT "Inserisci il inumerò";* 

20 PRINT "H*i inserito 

Il comando INPUT può attribuire il valore anche a più di una varia¬ 
bile. 

10 INPUT "Inserisci "Inserisci b ";b' 

"Inserisci c ";c 
20 PRINT *'b'c 

Eseguendo questo programma, vedrete come lo Spectrum proceda 
passo passo nell’eseguire l’istruzione di INPUT. 
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Variabili Stringa 

Una variabile può anche far riferimento ad una stringa la quale, co¬ 
me già visto, è un insieme di caratteri alfabetici e grafici o qualsiasi al¬ 
tro simbolo disponibile sulla tastiera. Per far capire allo Spectrum se la 
variabile fa riferimento a un numero o a una stringa, si è adottato, per 
queste ultime, il singolare accorgimento di far seguire la lettera interes¬ 
sata, dal segno $ 

A* 

x« 


Il computer non distingue tra lettere maiuscole e minuscole (A$, 
quindi, equivale ad a$), mentre riconosce una variabile di stringa (A$) 
da una variabile numerica (A). Per dare il valore ad una variabile strin¬ 
ga, si usa lo statement LET come avviene per le variabili numeriche; 


18 LET a*«" Spectrum" 
20 LET b*-** 

30 PRINT b* 


Se la variabile scritta alla sinistra dell’uguale è una variabile stringa, 
anche il risultato dell'espressione a destra dovrà essere una stringa. 
Questo fatto vale anche per le variabili numeriche. Non è pertanto pos¬ 
sibile mescolare le due grandezze come segue: 

LET *■"Spectrum" 

LET **-12+34 


É possibile inserire variabili stringa anche nello statement di INPUT: 


10 INPUT «• 
20 PRINT a* 


All’esecuzione del programma, il display presenta il cursore L rac¬ 
chiuso tra virgolette nell’angolo inferiore sinistro. A questo punto, quan¬ 
to inserito viene riportato tale e quale. E potrete notare che tutto ciò 
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che battete viene stampato esattamente come l’avete introdotto, senza 
che venga eseguito alcun calcolo. Battendo ad esempio: 



Talvolta l’uso delle virgolette si rivela una seccatura; qualora ve ne 
voleste sbarazzare, battete l’istruzione LINE (tasto 3) prima del nome 
della variabile stringa; 

10 INPUT "Il tuo nome ?";LINE n* 

20 INPUT "Ci*o ";< n* V"Quanti anni hai ? ";y 
30 PRINT n*;" hai ";yj" anni " 

Notate l’utilità della riga 20: non è possibile stampare il valore n$ 
(cioè il vostro nome) come parte del prompt di INPUT, in quanto l’IN¬ 
PUT crede che qualsiasi messaggio che inizi con una lettera sia una va¬ 
riabile da inserire; ma racchiudendo tra parentesi il nome della variabi¬ 
le, il vostro messaggio non inizierà più con una lettera! In questo modo 
potete battere n$ (il vostro nome). 


Trattamento delle stringhe 

Cosi come avviene per i numeri, se alla sinistra dell’uguale vi è il no¬ 
me di una variabile stringa alla sua destra dovrà comparire una stringa. 
Vi sono due metodi per costruire un’espressione di stringa, il primo dei 
quali si avvale del segno “+” per unire due stringhe: 

LET **■"ORO"+"RIO" 

rende a$ uguale a 

10 LET *•»"TRE" 

20 LET b*“**+"NO" 

30 PRINT b* 
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che dà come risultato “TRENO”, ottenibile anche con 


10 LET «•■"TRE" 

20 LET «*»«*+"NO" : PRINT ** 

li BASIC dello Spectrum può anche copiare solamente parte della 
stringa per mezzo dell’operatore TO (tasto F). In generale: 

LET **-b*<x TO y > 

mette in a$ i caratteri dall'x-esimo all’y-esimo di b$. Ad esempio, con 
LET 1l-8ET-82"< 4 TO 6> 

rende m$=“SET”. 

Se il numero alla sinistra di TO è I, ciò significa che vogliamo iniziare 
a copiare cominciando dal primo carattere, quindi possiamo ometterlo 

"SINCLRIR"< TO 3> e' "SIN" 

Analogamente, volendo copiare dei caratteri a partire da qualsiasi 
punto della stringa fino alla fine — e quindi il numero dopo il TO sarebbe 
uguale alla lunghezza della stringa — possiamo ometterlo anche in que¬ 
sto caso: 

"SINCLRIR"<5 TO > e' "LfiIR" 

Dovete specificare un numero di caratteri pari a quelli realmente 
presenti; istruzioni come 

"RBC"< TO 4 > 

portano ad errore (subscript wrong) poiché ABC sono in tutto tre soli 
caratteri. Volendo estrapolare un solo carattere, si può scrivere 

"OXQ"< 2 TO Z > 

ma ancora più semplicemente 

"OXO"< 2 > 
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L’operatore TO si impiega anche per variare parte della stringa. Ad 
esempio 

10 LET ***"123456" 

20 LET «*( 3 TO 4 >*"fiB" 

30 FRINT ** 

darà come risultato 

12RB56 

in quanto la linea 20 chiede allo Spectrum di sostituire il terzo e il quar¬ 
to carattere di a$ con quelli presenti alla destra del segno =. Una even¬ 
tuale 

20 LET **<6 TO 7 )* " RB " 

porterebbe ad un errore non esistendo in a$ un settimo carattere. 

E se l’espressione alla destra dell’uguale dovesse risultare troppo 
lunga o troppo corta? In entrambi i casi provvede lo Spectrum. Se è 
troppo lunga, riporta solo quanto necessario: 

20 LET **<3 TO 4 >*"RBCD" 
porta al risultato di 
12RB56 

Se è invece troppo corta, vengono aggiunti spazi: 

20 LET *•< 3 TO 4>»"R" 

dà come esito 
12R 56 

Dovendo sostituire un solo carattere, conviene usare la forma 
LET a*<x>* 


al posto di 

LET a*<x TO x>= 
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Funzioni 

Il BASIC comprende un numero di parole conosciute come “funzio¬ 
ni" le quali svolgono operazioni pre-programmate che ottengono risul¬ 
tati sia numerici che di stringa. Una di queste funzioni è SQR che calco¬ 
la la radice quadrata: 

PRINT SQR 4 
risulta 2. 

Il valore sul quale la funzione agisce prende il nome di argomento 
della funzione. Nell’esempio sopra riportato l’argomento della SQR è 4. 
Alcune funzioni operano su di un solo argomento, altre su due e pochis¬ 
sime non richiedono alcun argomento; anche una variabile può essere 
impiegata come argomento: 

PRINT SQR * 

oppure una espressione numerica 

PRINT SQR <9+16) 

In questo caso è necessario racchiudere l'espressione entro paren¬ 
tesi in quanto 

PRINT SQR 9+16 
darebbe un risultato differente. 

L’elenco delle funzioni a disposizione è presentato sul manuale. An¬ 
datelo a sfogliare e noterete che quelle relative a risultati composti da 
stringhe, terminano col segno $ (esempio CHR$). Altre (COS, EXP, 
etc.) sono matematiche e il loro impiego è ovvio nella stesura del pro¬ 
gramma. Ve ne sono anche alcune che sembrerebbero strane e che 
vedremo più avanti, ma delle quali potrete scoprire già ora la funzione, 
facendole precedere dallo statement di PRINT per vedere a che risulta¬ 
to portano. 
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CAPITOLO 4 

LOOP E DECISIONI 


Un programma scritto in BASIC si presenta come una lista di linee 
numerate in ordine crescente. Quando si dà il RUN, il computer prende 
in considerazione la linea di programma con il numero inferiore, la ese¬ 
gue, passa alla successiva e cosi via fino a giungere alia fine del listato 
dove si ferma. 

Ma un computer può fare qualcosa di più complesso che compiere 
un tragitto del genere: è infatti possibile fargli ripetere una riga o un 
gruppo di righe di programma quante volte vogliamo. 

È possibile anche che, dietro particolari ordini, il computer salti a nu¬ 
meri di linea più alti oppure più bassi (ignorando quanto sta in mezzo). 
Sono appunto queste possibilità che conferiscono al sistema la flessibi¬ 
lità necessaria ad eseguire programmi di una certa complessità. 
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GO TO 


L’istruzione GO TO (tasto G) si impiega per variare l’ordine in cui lo 
Spectrum esegue gli statement facendolo saltare a linee diverse da 
quella successiva. Nella sua forma più elementare, lo statement GO TO 
è seguito semplicemente da un numero di riga: 

10 PRINT "Spectrum. " 

20 GO TO 10 


Provate: è una routine elementare molto efficace! Quando il compu¬ 
ter esegue la riga 20, compie un balzo ail’indietro tornando alla 10 e 
così via fino a riempire l’intero schermo e a far apparire nell’angolo in 
basso a sinistra la domanda: 

scroti ? 


Se si risponde premendo un tasto qualsiasi all’infuori di N o di 
BREAK, il programma continuerà e lo schermo si riempirà un’altra voi-, 
ta. 


Provate ora ad aggiungere una terza riga: 

15 POKE 23692,0 

e vedrete che la scritta continuerà a scorrere verso l’alto senza più 
chiedere il vostro permesso. Se non ne comprendete il significato, 
non preoccupatevi: consideratela per ora una parola magica. Questa è 
la tipica struttura di un “loop senza fine”, per interrompere il quale è 
necessario dare il BREAK (CAPS SHIFT e BREAK assieme oppure to¬ 
gliere l'alimentazione all’apparecchio). 

Potete far eseguire al computer anche salti in avanti, come dimostra 
il programma seguente, che non esegue mai la lìnea 30: 

10 PRINT "LO SPECTRUM E'’ IL " 

20 GO TO 40 
30 PRINT "MIGLIORE " 

40 PRINT "COMPUTER " 
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I giorni della settimana 

Il numero che segue GO TO può essere seguito da un’espressione 
numerica, per introdurre nel salto un elemento di scelta; 


10 INPUT 
ella setti 
7 ";d 

20 CLS 
e . 

30 GO TO 

100 GO TO 

101 PRINT 

102 PRINT 

103 PRINT 

0 

104. PRINT 

105 PRINT 

106 PRINT 

107 PRINT 


"Inserisci 
ana con i 

PRINT "Il 

100+d 

10 

"Lunedi•" : 
"Hartedi ' " 
"Me reo tedi 

"Giovedì " 
" Ve n e r d i ' ” 
"Saba t o " 
"Domenica" 


i giorni d 
numeri.1 - 

giorno " ; d 


GO Tu 10 
GO TO 10 
GO TO 1 

GO TO 10 
GO TO 10 
GO TO 10 
: GO TO 10 


In questo programma la riga 30 provoca un salto alla 101 se avete in¬ 
serito il numero “1”, alla riga 102 se avete invece inserito il “2” e così 
via. Il problema principale, in queste forme di GOTO "calcolato” si pre¬ 
senta quando viene inserito un valore al di fuori di quelli stabiliti. Se, ad 
esempio, introducete il numero “0”, la riga 30 farà compiere un salto 
alla 100 che è stata appunto inclusa per ovviare a tale errore. Se invece 
la cifra introdotta è maggiore di 7, il salto avviene su righe inesistenti, 
poste fuori dal limite massimo del programma. 

Fortunatamente il BASIC dello Spectrum è molto elastico in questo 
senso, cosi, se cercate di saltare ad una linea inesistente, questo vi 
porterà alla riga di programma più alta dopo quella in cui vi trovavate e, 
nel caso non ne esistessero, il programma si fermerà. 


IF... THEN 

La combinazione IF-THEN mette il programma in condizione di effet¬ 
tuare una scelta per operare in una certa direzione anziché in un’altra. 
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Le due parole sono sempre abbinate nello statement che deve avere la 
forma 

IF espressione logica THEN statement 

Un’espressione logica è una particolare espressione che può dare un 
risultato “vero” o “falso”. Esempio: 

R-B 

Nero*Bianco 

205 

a*< >"SI" 

Lo statement o gli statement che seguono THEN possono essere del¬ 
le qualsiasi istruzioni BASIC, devono appartenere alla stessa riga di 
programma di IF-THEN e vengono eseguite soltanto se la “espressione 
logica” dà come risultato “vero”. Se invece, il risultato è “falso” lo 
Spectrum salta alla linea di programma successiva. 

Se THEN è seguito da più di uno statement, ognuno di questi va se¬ 
parato dai due punti come avviene in qualsiasi altra linea di program¬ 
ma. Facciamo un esempio pratico: 

IF anno»2084 THEN F'RINT "Centenario” 

Il vocabolo “Centenario” viene scritto solo quando la variabile “an¬ 
no” ha il valore “2084”. 

' IF punti record THEN PR X NT •• BRRU 

O •• : l_ET r e c o I- d =p u n t i 

è una routine assai usata da mettere alla fine di qualsiasi programma di 
giochi. IF-THEN possono essere seguiti anche da un secondo IF-THEN 
come mostra l’esempio che segue: 

XF mese =4- THEN IF giorno=23 THEN 
PRINT • • euon c o m p i e a nno • • 

Nella maggior parte dei'casi IF-THEN è però seguita da GO TO co¬ 
me nella routine che segue, la quale scrive i numeri dall’1 al 10. 

10 LET R"1 

20 PRINT R 

30 LET R=R+1 

40 IF RO10 THEN GO TO 20 
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Per quanto riguarda i valori "veri” o "falsi”, ricordatevi che quando lo 
Spectrum svolge espressioni logiche dà sempre un risultato numerico 
che è "1” se l’espressione è “vera” oppure "0” se l’espressione è “fal¬ 
sa”. Dimostriamolo battendo: 

PRINT 2-2,2»3 

che dà come risultato: 

1 e 

Similmente la linea 
LET «■••pressione logica 

attribuisce ad “a” il valore "1” se l’espressione logica è vera e “0” se è 
falsa. 

In pratica, lo Spectrum considera “vero” qualsiasi valore diverso da 
“0” per cui la linea 

IF a THEN PRINT "VERO” 

presenta “VERO” in ogni caso meno che per a=0. Ricordate che i sim¬ 
boli < > (diverso da), <= (minore o uguale a) e >= (maggiore o uguale 
a) vanno inseriti tramite istruzioni singole e non come combinazioni di 
<,> con =. 


NOT 

È una funzione che trasforma “vero” in “falso” e viceversa. 

IF NOT <2*3 > THEN PRINT "2 nor. ugual* a 3> 

AND 

L’istruzione AND è un operatore logico per cui può venire inserita nel 
contesto di espressioni logiche. Se scrivete 

p RND q 
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dove “p” e “q” sono espressioni logiche, il risultato sarà vero solo 
quando sia “p” che “q” sono veri. Esempio: 

IF < m«rs»=12 ) AND < 9 i orrio=9 > THEN FRI NT "Buon 
Compleanno" 

può essere un’alternativa alla routine vista in precedenza in cui si illu¬ 
strava la funzione di due IF nella stessa riga. AND può essere usata an¬ 
che con espressioni numeriche, 

fi BND B 

dà come risultato: A se B OOeOse B = 0 

B può anche essere una espressione logica per cui possiamo scrive¬ 
re lo statement che segue: 

LET altezza=alfcezza - <10 AND altezza >=10 > 

che sottrae 10 alla variabile “alto" solo se “alto” è >= 10. AND può es¬ 
sere impiegata anche con espressioni stringa. 

A» AND B 

porta come risultato A$ per B<>0oa una stringa nulla (” ”) per B=0. 

Ciò può essere utile anche in statement PRINT come 
PRINT <"BUONO" AND X >+<"CATTIVO AND NOT X> 

che scrive “BUONO” oppure “CATTIVO” a seconda del valore di x. Af¬ 
finando ulteriormente le nostre capacità, possiamo scrivere espressioni 
numerico-logiche dopo GO TO: 

GO TO <100 AND x<0 >+<200 AND x=0 >+< 300 AND x>0> 

Questo esempio ordina al computer di saltare alla linea 100, 200 o 
300 a seconda del valore attribuito a x. 
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OR 


Anche la parola OR (sul tasto U), è un operatore logico, 
p OR q 

Il risultato è vero se solo "p” oppure solo “q” oppure entrambi sono 
veri, mentre è falso solo nel caso in cui tutte e due le espressioni logi¬ 
che siano false. Un esempio di impiego: 

IF < potenza»®) OR<*ria»0> THEN PRINT "SEI MORTO ! " 

Come AND, anche OR può essere impiegata in espressioni numeri¬ 
che 


R OR B 

dà come risultato 1 per B< >0 (vero) 
A per B=0 (falso) 


Per cui: 

LET A-R OR < A<1> 

assicura che il valore della variabile A non scenda al disotto di 1. OR 
non può essere usata con espressioni stringa. 


FOR-TO-STEP... NEXT 


Poco sopra abbiamo presentato un semplice programma per scrive¬ 
re i numeri dall’1 al 10, per mezzo dello statement IF-THEN-GOTO che 
chiudeva il loop non appena raggiunta la decima cifra. Ecco un secon¬ 
do metodo per ottenere gli stessi risultati: il loop FOR-NEXT. È una 
struttura del BASIC molto utile che permette la ripetizione di tutto o di 
parte del programma, per un determinato numero di volte, prima di pro- 
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seguire o di fermarsi. Tale forma necessita di due statement ben distin¬ 
ti: 


FOR 9.-K TO y STEP 2 
NEXT * 

dove FOR, TO, STEP e NEXT sono parole rintracciabili sui tasti F,F,D e 
N. La parte del programma soggetta a ripetizione è quella posta tra il 
FOR e il NEXT. "a” è detta “variabile di controllo" del loop; in realtà è 
una variabile numerica come tutte le altre, eccettuato il fatto che il suo 
nome deve essere costituito da una sola lettera, mentre “x”, “y” e “z” 
sono espressioni numeriche. Quando lo Spectrum incontra lo state¬ 
ment FOR, calcola innanzitutto le espressioni “x”, “y” e “z” e ne me¬ 
morizza i risultati; quindi pone la variabile di controllo "a” uguale al va¬ 
lore di partenza “x”. Esegue poi gli statement successivi al FOR fino a 
trovare il NEXT che possiede la stessa variabile di controllo del FOR. A 
questo punto, lo Spectrum aggiunge alla variabile di controllo “a” il va¬ 
lore di STEP “z” (STEP significa appunto “passo”) dopodiché, se il va¬ 
lore di “a" così incrementato supera quello del valore limite “y” (o è al 
disotto se il valore di STEP “z” è negativo), salta allo statement che se¬ 
gue il NEXT, proseguendo nello svolgimento dei programma. Viceversa 
se il valore di “a” rimane entro il limite imposto da “y” il programma e- 
segue un loop a ritroso, tornando al FOR e ripetendo il ciclo. Eccezioni 
a queste regole si verificano quando: 

— il valore della variabile di controllo è maggiore del valore limite “y” e 
lo STEP “z”è positivo; 

— il valore della variabile di controllo è minore del valore limite “y” e lo 
STEP è negativo. 


In questi casi il computer salta direttamente allo statement successi¬ 
vo al NEXT senza eseguire gli statement posti tra il FOR e il NEXT. 

Se la parola STEP e il suo valore (z) vengono omessi, il valore del 
passo è inteso come 1. Molto spesso gli esempi valgono più delle paro- 
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le per cui ecco qualche semplice esempio: 


10 FOR a*l TO 10 
20 PRINT a 
30 NEXT a 


scrive i numeri dall’1 al 10, mentre 


10 FOR a*»10 TO 1 STEP -1 
20 PRINT 1 k. ' ‘ 

30 NEKT a 


li scrive in ordine inverso. 


Aggiungete a questi due esempi la riga 
40 PRINT a 

e vi verrà mostrato il valore della variabile di controllo alla fine del loop. 
Variando la linea 10 in: 

10 FOR a»l TO 0 


oppure in: 

10 FOR a-0 TO 1 STEP -1 


si verificano le condizioni per le quali gli statement nel loop non vengo¬ 
no eseguiti affatto come sopra accennato. Volendo, è possibile cam¬ 
biare il valore della variabile di controllo come qualsiasi altra variabile: 


10 FOR f«l TO 5 
20 IF f-13 THEN LET f-14 
30 PRINT f 
40 NEXT f 


otterrete il numero delle stanze di un hotel americano. 
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Tabelline 


Un’applicazione pratica del loop FOR-NEXT è il programma che se¬ 
gue, relativo alla tabellina di moltiplicazione: 


10 INPUT "Tavola per numero?" ;t- 
20 FOR a-1 TO 12 

30 PRINT a;" moltipllcato ";t;" » ";a#t 
40 NEXT a 


Sinusoide 

Un’ulteriore esemplificazione di come viene utilizzato un loop FOR 
NEXT è il seguente programma che disegna, sommariamente, una si¬ 
nusoide; se non sapete cosa essa sia, limitatevi a guardarla: 

10 FOR a=0 TO 31 

20 PRI NT flT <11 + 10*S IN < a*PI16 , a ; 

30 NEXT a 

Il quadrato nero posto tra virgolette si ottiene azionando contempo¬ 
raneamente INV VIDEO e CAPS SHIFT. Se preferite una curva più fitta, 
variate la riga 10 inserendo un passo più piccolo: 

10 FOR *=0 TO 31 STEP .5 

Dando il valore 0 alle dimensioni del passo, otterrete un loop senza 
fine, ma, con questo programma, non vi porterà molto lontano! 


Numeri primi 

Ecco un esempio di loop FOR-NEXT usato più di una volta in un pro¬ 
gramma per il calcolo dei numeri primi fino ad 80, dopo il 2. La struttura 
è assai complessa, ma le frecce indicano chiaramente il cammino che 
il programma effettua prima di raggiungere la riga col numero via via 
sempre più alto. Con un esempio di questo tipo potete avere un’idea di 
come lavora un programma, e questo potrà tornarvi utile in futuro. Il 
loop principale del programma scorre tra le righe 20 e 80, selezionando 
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man mano tutti i numeri primi; la variabile di controllo “A” viene usata 
anche dalla riga 70 per presentare i numeri ben incolonnati; 


10 

LET t 

= 1 


—20 

FOR a 

= 0 TO 

79 

-30 

LET t 

= 1+2 


—40 

FOR f 

= 3 TO 

SOR t 

-50 

IF t = 

f *INT 

( t / f ) 

30 




—60 

NEXT 

f 


70 

PRINT 

TRB ; 

S*a ; t 

-80 

NEXT 

3 



STEP 2 
THEN GO TO 


Nel corpo di questo loop esterno si valuta se la variabile “t” è un nu¬ 
mero primo. Partendo da un numero dispari e aggiungendo 2 ogni volta 
(riga 30) il programma evita di provare numeri pari che non possono 
essere primi. Il test per vedere se “t” è primo, avviene tra le righe 40 e 
60 e rivela se gli interi dispari compresi fra 3 e la radice quadrata di “t” 
sono un fattore di “t” stesso. Se si, “t” non è un numero primo e il pro¬ 
gramma torna alla linea 30 per definire il seguente valore di “t” da esa¬ 
minare. Se invece non risultano fattori, ciò significa che "t” è un nume¬ 
ro primo e viene stampato dalla riga 70. È degno di nota il fatto che, di¬ 
versamente dal BASIC dello Spectrum, non tutti i dialetti BASIC conce¬ 
piscono l'uscita dal loop FOR-NEXT in un programma. 


NESTING 


L’inserimento di un loop FOR-NEXT all’interno di un altro 


r-FOR fi-B TO C 
rFOR X-Y TO Z 

*-NEXT X 
L NEXT FI 


è noto come “nesting” (annidamento) ed è conforme al linguaggio BA¬ 
SIC, mentre non lo è, almeno per lo Spectrum, una struttura di FOR 
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NEXT incrociata come quella che segue: 

r FOR R“B TO C 
r-FOR X-Y TO Z 

l-NEXT fi 
l NEXT X 


Numeri binari 


Questo programma è stato sviluppato per dimostrare un “nesting” 
che usa otto loop per formare tutti i 256 numeri binari ad otto bit scri¬ 
vendoli assieme agli equivalenti decimali. Se siete in possesso di una 
stampante per lo ZX, potete stamparvi la tabella di conversione Binario- 
Decimale semplicemente inserendo alla linea 110 LPRINT al posto di 
PRINT. 


! m ts§ T8 

102 FGR C =0 TO 

103 FOR d =0 TO 

104 FOR e=0 TO 

105 FOR f =0 TO 

106 FOR g=0 TO 


107 FOR h=0 TO 
110 P R XNT a + 1 2 d* + b + 6* 4 + C + 3 2 + d + 
*6 + f +4+g *2+h Thb 4a bc ; d ; e 


16 + 

, f : 




0 

00000000 

NEXT 

h 

1 

00000001 

NEXT 

9 

o 

00000010 

NEXT 

f 


00000011 

NEXT 

è 

4 

00000100 

NEXT 

d 

c; 

00000101 

NEXT 

C 

£, 

00000110 

NEXT 

b 


00000111 

NEXT 

d 

s 

00001000 



9 

00001001 



:L0 

00001O1O 



11 

00001011 



12 

00001100 



13 

00001101 



14 

0000111 ~ 



15 

17 . .*» •- 




-w X JL 1 



•+■ o 

11111000 



249 

11111001 



250 

muoio 



251 

limoli 



252 

11111100 



253 

11111101 



254 

limilo 



255 

limili 
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CAPITOLO 5 

ARRAY E DATI 


Come abbiamo visto, è molto facile programmare lo Spectrum per 
fargli svolgere più di una volta la stessa routine, usando un loop FOR 
NEXT o uno statement IF THEN GOTO. 

Quando il programma deve manipolare una quantità ingente di dati, è 
necessario organizzarli in una sezione destinata ad essere richiamata 
ogni volta che se ne presenti la necessità. Con le semplici variabili nu¬ 
meriche di stringa viste finora, è possibile rappresentare solamente una 
singola voce mentre per la manipolazione di set di dati, il BASIC preve¬ 
de l’uso di variabili “array” (a schiera). 

Array numerici 

Supponete di essere degli insegnanti e di voler memorizzare nel 
computer i voti di fine trimestre dei vostri allievi. Per semplificare le co¬ 
se momentaneamente, supponete di dover memorizzare un solo voto 
per ogni alunno. Userete una variabile diversa per ognuno e, poiché lo 
Spectrum, per quanto riguarda il nome attribuito alle variabili, non pone 
restrizioni di spazio, potete inserire i nomi al completo: 

LET DIHO ROSSI = 28 
LET PIERO VERDI = 73 
LET SfiHDRO CONTI = 100 

in questo modo i dati sono stati memorizzati, inoltre potrete richiamare 
il voto di ogni alunno semplicemente con lo statement 

F'RINT fìnge l o Bianchi 

In questi termini il programma non è però in grado di manipolare i 
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dati inseriti. Infatti per compiere un’operazione semplice, come il cal¬ 
colo del voto medio della classe, il programma dovrebbe conoscere in 
anticipo tutti i nomi degli alunni. Se non vi rendete conto dell’entità del 
problema, provate ad inserire un programma per la somma dei voti di 
trenta persone con i voti riferiti a variabili individuali (come mostrato 
nell’esempio precedente) senza conoscere il nome degli alunni al mo¬ 
mento della stesura del programma! L’ostacolo viene aggirato riferen¬ 
do direttamente i nomi ad altrettanti numeri, dimenticando momenta¬ 
neamente i nomi. 

Nel caso dei 30 allievi, userete i numeri dall’1 al 30, varando il nuovo 
comando DIM (sul tasto G) in uno statement del genere: 

DIM m< 30 > 

che dirà allo Spectrum di riservare uno spazio in memoria per inserirci 
le 30 variabili m (1)— m (30). Tali variabili vengono usate alla stregua 
delle altre variabili numeriche, ma non possono entrare a far parte di 
loop FOR NEXT come variabili di controllo. Fra parentesi possono tro¬ 
var posto anche espressioni numeriche o variabili. 

rn< 7 ':> 

8-1 > 

nK i. a- 1 V£ > dove ■' a •’ va le 15 

sono tutte forme legali che si riferiscono alla stessa variabile. Questo 
sistema permette al programma di manipolare a turno tutte e trenta le 
variabili per mezzo di un semplice loop. Ecco l’esempio di una piccola 
routine che vi permetterà di inserire i voti: 

100 FOR p=l TO 30 

110 I NF’UT " Vpto per a. 11 i evo " < p ) t<<< p > 

120 NEXT P 

Il set delle trenta variabili da m(1) a m(30) è conosciuto come “ar- 
ray”. Vi è qualche nota sul suo uso: 

— lo spazio in memoria destinato all’array, deve essere prenotato dallo 
statement DIM prima ancora di usare qualsiasi elemento dell’array 
stesso; 
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— il nome dell'array (m nell’esempio precedente) deve essere formato 
da una singola lettera. Anche qui lo Spectrum non fa distinzione tra 
maiuscole e minuscole; 

— oltre a prenotare spazio in memoria, DIM azzera il valore di tutti gli 
elementi; 

— l’elemento ”m(n)” dell’array è una variabile diversa dalla variabile 
numerica "m”; 

— in presenza di due statement DIM uguali situati nello stesso pro¬ 
gramma, il primo viene cancellato dal secondo quando questo è e- 
seguito dallo Spectrum; 

— l’elenco inizia sempre dal numero 1 ed il limite superiore è quello 
della capacità di memoria. Se ogni elemento occupa ad esempio 5 
byte, avrete a disposizione 1600 elementi di array con lo Spectrum 
da 16 K e ben 8200 con quello da 48 K. 


Array numerici multldlmenslonall 

Tornando al vostro ruolo di insegnanti, avete visto come attribuire un 
voto ad ogni allievo, o, il che è lo stesso, come trattare una colonna di 
numeri. Qualora voleste espandere il programma aggiungendo altre vo¬ 
ci, ad esempio altre materie, è possibile usare un array diverso per o- 
gnuna: 

array f(30) si riferisce ai voti di Francese 
array m(30) si riferisce ai voti di Matematica 
array c(30) si riferisce ai voti di Computisteria 


È possibile semplificare il tutto usando un unico array con due indici. 
Considerando, ad esempio, cinque materie, dovremmo formare un ar¬ 
ray con questo statement: 

DIM ro< 5,30) 

si può immaginare come un foglio di carta suddiviso in 5 colonne di 30 
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righe ciascuna per cui l’elemento singolo precedente 


corrisponde sul foglio al numero che risiede nella colonna “s” alla riga 
“p” e cioè nell’esempio precedente la quotazione dell’allievo 30 nel 
campo 5. Avendo due indici... dovremo inserire in programma due 
loops FOR NEXT annidati: 

r l00 FOR s=l TO 5 
110 CLS : FRI NT "SOGGETTO "s 
ri£0 FOR p=l TO 30 

130 INPUT "Voto per -scolaro " P ; rn<. s . p 

L 140 NEXT P 
Ll50 NEXT s 


si sarebbe potuto usare anche un array del tipo: 

DIM 305 > 

il quale attribuisce il numero dell’allievo a “p” (primo indice) e quello 
del soggetto a "s” (secondo indice). Può anche essere aggiunto un ter¬ 
zo indice, per esempio quello relativo ai tre trimestri componenti l’anno 
scolastico: 

Diti C 35j 30 > 

pensando il tutto come tre fogli di carta, uno per ogni trimestre. 

Se sarete riusciti ad ottenere la promozione ad insegnante di ruolo, 
potrete inserire anche una quarta voce relativa al numero (supponiamo 
6) delle classi affidatevi: 

DIM < 6 , 3,.-5., 30 > 


È questo un array quadridimensionale; ma in realtà potete impiegare 
il numero di dimensioni che volete, entro i limiti della memoria dello 
Spectrum. 
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Array di strlnghe/caratterl 

Finora abbiamo riferito il nome degli allievi ad altrettanti numeri. Ora 
vediamo di costruire un array contenente i nomi veri ricorrendo al con¬ 
cetto di stringa. Sorge subito un interrogativo: quanto è lunga una strin¬ 
ga? Lo statement DIM non ha problemi nel riservare spazio ad un array 
numerico dato che ogni suo elemento è lungo 5 byte; non è però così 
per la stringa, che possiede lunghezze variabili. Lo Spectrum aggira l’o¬ 
stacolo permettendo al DI M di prendere in considerazione un array di 
caratteri a patto che il nome della variabile sia seguito dal segno $. O- 
gni carattere occupa un byte di memoria per cui 

DIM a*<le> 

forma un array singolo di dieci caratteri e 
Diri 5, tei¬ 
ne forma uno da 5 x 10. Anche in questo caso potete usare quante di¬ 
mensioni volete, col solito limite imposto dalla capacità di memoria. 
Nel momento in cui viene eseguito uno statement DI M di caratteri, si 
cancellano sia gli array sia le variabili stringa che portano lo stesso 
nome. Non è possibile avere allo stesso tempo una a$ e una a$(3). No¬ 
tate che alla stregua degli array numerici, anche gli array di caratteri 
hanno come nome una singola lettera (ma seguita da $). 

Inoltre l’istruzione DIM riempie con degli spazi gli array di caratteri. 
In generale è preferibile avere a che fare con stringhe piuttosto che con 
singoli caratteri, così lo Spectrum consente di trattare parte .di array di 
caratteri come se fossero stringhe. 

Ecco alcune regole: 

— se, riferendovi ad un elemento di un array di caratteri, omettete l'ulti¬ 
mo indice, per lo Spectrum vi state riferendo ad una stringa; 

— tale stringa possiede il numero di caratteri dato dall'ultimo indice 
dello statement DIM. Ad esempio: 

Olii a*<3,5> 


49 



consente di fare riferimento alle tre stringhe a$(1), a$(2), a$(3) ognu¬ 
na delle quali ha una lunghezza di cinque caratteri. Un caso particola¬ 
re, e molto utile, è quello in cui l’istruzione DI M ha un solo argomento 

DIM *•<32> 

in questo caso si ha a disposizione un array di 32 spazi utilizzabile co¬ 
me stringa facendo riferimento ad a$. 

Vi tornerà più facile capire il concetto di array di carattere e di strin¬ 
ga, battendo la routine che segue: 

10 DIM yì*< 23 > 

20 LET r.*< 1 >"IO" 

30 LET n*< 2 >■"NOI" 

la quale porta ad un array di caratteri del genere: 



La lunghezza di ogni stringa è stabilita dallo statement DIM. Inseren¬ 
do una stringa troppo corta, lo Spectrum la completerà con degli spazi; 
inserendone una troppo lunga, prenderà in considerazione solo il nu¬ 
mero di caratteri precisato dal DIM. Per esempio, variando la linea 20 
come segue 

20 LET 1 >="LORO , ‘ 

si ottiene l’array di caratteri: 



Tornando alla registrazione degli allievi, sarà necessario stabilire il 
numero dei caratteri da prevedere per ogni nome, diciamo 20, e poi for¬ 
mare un array di stringa di 20 caratteri. 

DIM 30., 20 > 
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mette a disposizione 30 stringhe da n$ (1) a n$(30) di 20 caratteri o- 
gnuna, necessarie per una classe. Invece 

DIM 6,30,20 > 

memorizza i nomi di 6 classi. 


Comparazione di stringhe 

Il fatto che le stringhe site nell’array siano tutte della stessa lunghez¬ 
za fa sorgere un problema quando si deve procedere ad una compara¬ 
zione tra due stringhe di cui solo una fa parte di un array. Questo acca¬ 
de perché lo Spectrum non riconoscerà mai come uguali le due strin¬ 
ghe a meno che non abbiano la stessa lunghezza. Ad esempio la routi¬ 
ne. 

10 DIM iì*< 35 > 

20 LET x**"TU" 

30 LET )=x* 

40 IF ri*< 1 >«x* THEN FRI NT "SEI TU" 

non presenterà mai la scritta “SEI TU” perché le stringhe confrontate 
nella linea 40 hanno lunghezze diverse. Ne avrete la dimostrazione ag¬ 
giungendo 

35 PRINT LEM n*<1LEN x* 

la quale mosterà per mezzo di LEN (tasto K) il numero dei caratteri di 
una stringa. Per risolvere l’enigma è necessario dimensionare x$ come 
un array di 5 caratteri inserendo la linea. 

15 DIM x*<5> 
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ORDINAMENTO 


Una volta inserite le informazioni in un array, vi chiederete come sia 
possibile il loro ordinamento. Questo breve programma, che fa uso di 
un array di 10 stringhe di 12 caratteri, vi chiede 10 parole da inserire e 
quindi le presenta in ordine alfabetico. 

Il contenuto dell’array viene stampato ad ogni tappa del processo di 
riordino: è molto interessante seguirlo. 


iis pse 

( 110 input "Parola"; (a); LINE n$ 

120 PRINT RT a , 0 ;n $(a » 

130 NEXT a 

200 LET C =0 

210 POR a=l TO 9 

220 IF n$(a) <=n$ (a + 1) THEN GO T 
O 260 

230 LET tt=n*(a): LET n$(a)=n$( 
a + 1) : LET n$ (a + 1) = t$ 

24.0 PRINT RT a,0;n$(a)'n*(a+l) 
250 LET C =1 
260 NEXT a 

270 IF C *1 THEN GO TO 200 


L’algoritmo di ordinamento è semplice, infatti prende in considera¬ 
zione due parole alla volta tra quelle presenti nella lista, invertendole di 
posizione se non risultano in ordine alfabetico (linea 230). Giunto alla 
fine dell’elenco, il programma controlla il flag “c” per vedere se è stato 
cambiato qualcosa. In caso affermativo, riesegue l’algoritmo. 

Potete rallentare il processo fino a farlo diventare visibile aggiungen- 


255 PRIJSE 28 
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PAUSE 

La parola Pause che avete appena usato, spiega da sola il significato 
dell’istruzione. Lo statement 

PRUSE n 

ordina ai computer di aspettare n/50 secondi (n/60 in U.S.A.) prima di 
passare all’esame dello statement successivo, quando il coefficiente 
"n" ha un valore compreso tra 1 e 65535. Inserendo un valore non inte¬ 
ro, lo Spectrum lo trasformerà nell’intero ad esso più vicino come acca¬ 
de con altri comandi tipo TAB, AT e PLOT i quali lavorano appunto e- 
sclusivamente su numeri interi. Il ritardo può essere interrotto a piace¬ 
re premendo qualsiasi tasto ad eccezione di CAPS SHIFT e SYMBOL 
SHIFT. 


PAUSE 0 fa aspettare per un tempo indefinito o almeno fino a che 
non venga premuto un tasto; è preferibile durante le operazioni usare 
un loop FOR NEXT vuoto del tipo 

FOR 3 = 1 TO 100 NEXT -3. 

particolarmente adatto quando è necessario ottenere un ritardo presta¬ 
bilito senza correre il rischio di accelerare l’esecuzione del programma 
tenendo involontariamente premuto un tasto. Il loop si ripete all’incirca 
200 volte al secondo o anche più lentamente se non si trova all’inizio 
del programma. Curiosamente, si può porre termine ad un PAUSE pri¬ 
ma ancora che esso venga eseguito 

10 PRINT 1 

20 FOR a=l TO 500: NEXT a 
30 PRINT 2 
4.0 PRUSE 100 
50 PRINT 3 

che dovrebbe visualizzare “1", aspettare un paio di secondi (riga 20) 
prima di visualizzare “2”, aspettare altri due secondi circa (riga 40) pri¬ 
ma di visualizzare ”3”; finché non toccherete la tastiera, il programma 
farà esattamente come vi abbiamo detto. Se però azionerete un tasto 
appena apparso l’"1” (mentre il computer sta eseguendo il loop di linea 
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20) verrà annullato anche il ritardo della seguente linea 40 e il “3” verrà 
presentato immediatamente dopo il “2”. Per ovviare a tale inconvenien¬ 
te si ricorre a un doppio PAUSE, il primo dei quali, con un ritardo insi¬ 
gnificante, ha lo scopo di “consumare” la pressione di un qualsiasi ta¬ 
sto battuto in precedenza. Nel programma precedente, sostituite la riga 
40 con 

40 PAUSE 1 PAUSE 100 


DATA, READ E RESTORE 

Volendo riempire un array con dati costanti, come per esempio i co¬ 
lori dell’iride, potete usare una serie di statement di LET 

10 DIM c*<7,8> 

20 LET c*<1>«"viola" 

30 L.ET c*< 2 ;■=" i ndaco" 
ecc. 

Tale sistema si rivela però noioso per cui il BASIC dello Spectrum 
propone un’altra soluzione: includere le voci in statement DATA per poi 
rileggerle all’interno dell’array. Uno statement DATA è formato dall’i¬ 
struzione DATA (sul tasto D) seguita da una o più voci separate da vir¬ 
gole: esempio: 

DATA 1.2," BIANCO 

Questa funzione può venir inserita in qualsiasi punto del programma 
e, quando questo viene avviato, il “data pointer” (puntatore dei DATA) 
si posiziona sul primo statement di DATA del listing. 

Lo statement READ è formato dalla istruzione READ (sul tasto A) se¬ 
guita da una o più variabili separate da virgole: 

READ a,b,c* 

Quando il programma esegue lo statement READ attribuisce ad ogni 
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variabile il valore seguente situato nella lista dei dati e sposta anche il 
"data pointer”. Quest’ultimo esempio porta al seguente risultato: 


Rita variabile •'a' viene attribuito il valore 'l' 
RI l.a variabile ' b' viene attribuito il valore ' 2 ' 
RI la variabile 'et' viene attribuito il valore 
•' E I RNCO •’ 


I dati possono essere introdotti con un numero qualsiasi di DATA, 
perché READ prende ciascuna voce via via che appare nel listato del 
programma. 

Volendo mettere in un array stringa i colori dell’arcobaleno, possia¬ 
mo usare: 

10 DIM c S ( 7.6 ) 

30 DRTR v i o le t lo " . ” i nda co ’’ . ” b 
lu" , "verde" 

30 DRTR "già l io" , "arancio" .. "co 

4.0 FOR a=l TO 7: RERD C$(a) : N 
EXT a 

Le voci collocate negli statement DATA non devono necessariamen¬ 
te essere delle costanti, ma possono essere anche espressioni numeri¬ 
che o stringhe: 

DRTR a/a,SQR 4,CHR$ 66 + " BIRNCO " 

L’unico accorgimento da tener presente è che le espressioni poste 
nello statement DATA devono avere la stessa natura delle variabili pre¬ 
senti nel corrispondente statement READ. Ad esempio, una variabile 
numerica nel READ va accoppiata con una espressione numerica nel 
DATA, e una variabile stringa con una espressione stringa. 

Quando il “data pointer” ha terminato di leggere l’ultimo dato, ulte¬ 
riori tentativi di lettura portano ad un messaggio di errore: 

Qut of data 

In questo caso si impone l’uso dell’istruzione RESTORE: 

RESTOSE 
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il quale sposta il "data pointer” sul primo dato inserito nel primo DATA 
del programma. 


RESTORE r. 


sposta il “data pointer” alla prima voce inserita alla riga “n” oppure alla 
prima voce inserita nel primo statement DATA che si trova dopo la riga 
n-esima, se questa non contiene DATA. A differenza di quanto afferma 
il manuale dello Spectrum, CLEAR non provoca alcun RESTORE auto¬ 
matico. 


ARABI-ROMANI 

L’esempio che segue vi mostra un array abbinato ad un DATA e con¬ 
verte i normali numeri "arabi” negli equivalenti “romani”. 

da 1984 a MCMLXXXIV 


Le righe 100 e 130 dispongono i dati costanti in modo da essere usati 
nel programma (r$ è impiegato come array di 7 caratteri). Il loop dalla 
linea 230 alla 270 controlla quale dei sette numeri romani deve essere 
visualizzato. 


IO© DIM r (9) 

HO DATA 1000,500,100,50,10,5,1 

, 0,0 

1S0 FOR X *1 TO 9: READ .'(X): NE 
XT X 

130 LET r $s"MDCLXUI" 

200 INPUT "Numero «0 a stop) ? 

210 IF a=0 TMEN STOP 
220 print 'a ;" = " ; 

230 FOR X=1 TO 7 

24.0 IF a > = t* <X ) TMEN PRINT r$tx) 

; : LET a=a-r (X) : GO TO 24.0 
250 LET y=l+2*INT UX+D/2) 

260 IF a >si-(X)-f (y ) THEN PRINT 
r*(u) ; : LET a=a+r (y) : GO TO 240 
270 NEXT X 
300 GO TO 200 



56 



CAPITOLO 6 

STESURA DI UN PROGRAMMA 


La canzone di trionfo del programmatore 

II primo che ho scritto è quel che ho venduto 
secondo era quello che funzionava 
ma io — coraggioso — l'ho scritto di nuovo 
e ancora di nuovo per farlo migliore. 

Adesso ce l’ho, è bello, è conciso: 
amico, per dollari non te lo vendo 
se vuoi comperarlo, acquistalo in yen! 


Vi sarete accorti, a questo punto, che far girare programmi composti 
da altri è già motivo di soddisfazione, specialmente per quelli di voi che 
sono entrati a contatto per la prima volta con il mondo dei computer. Vi 
assicuro però che riuscire a stendere un programma da soli procura 
una soddisfazione molto maggiore. Questo capitolo prende in esame gli 
aspetti essenziali della creazione di programmi validi. 

Struttura 

Il primo e più importante punto per la stesura di un programma di 
successo è che la successione delle righe non va scritta come se si 
stesse scrivendo una lettera ad un amico, cioè iniziando con “caro 
Sandro...” e scrivendo tutto quello che ci viene in mente, magari chiu¬ 
dendo con un P.S. perché ci era sfuggito qualcosa. I programmi vanno 
invece creati come si crea un’opera d’arte o come si costruisce un edi- 
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ficio, partendo dalla base, rifinendolo poco per volta e accertandosi via 
via che la struttura si regga in piedi prima dì passare ai dettagli succes¬ 
sivi. Dovrete pertanto resistere alla tentazione di inserire subito le pri¬ 
me righe nel computer e aspettare di essere in possesso dell’intera 
struttura del sistema. Ogni programma di una certa consistenza com¬ 
prende parecchi dettagli che vanno affrontati uno alla volta e che è im¬ 
possibile tenere tutti a mente. É impossibile infatti poter vedere l’intero 
bosco a causa degli alberi stessi che lo compongono. È come se il 
computer procedesse per la sua strada attraverso la foresta del vostro 
programma, compiendo brevi movimenti tra un albero e l’altro; ma se 
voi non riuscite a vedere tutta la foresta insieme, come fate ad essere 
sicuri che il computer è sulla strada giusta? 


L’algoritmo e I dati 

“Algoritmo” è un termine che sta ad indicare il modo migliore per ri¬ 
solvere un determinato problema. Le soluzioni di solito sono molteplici 
ed è compito vostro cercare quella più congeniale al vostro computer. 
Ad esempio, il loop FOR NEXT verrà impiegato quando il programma 
necessiterà di un algoritmo in grado di ripetere più volte la stessa ope¬ 
razione. Nello stesso modo, anche i dati vanno trattati col metodo più 
regolare possibile; cercate le somiglianze fra differenti voci di dati e 
sfruttatele per semplificare il programma. Per esempio, il successo di 
molti programmi finanziari è legato al fatto di avere i dati organizzati in 
modo da essere manipolati con facilità. 


Rapidità di apprendimento 

Per acquisire pratica dovete scrivere voi stessi dei programmi e stu¬ 
diarne altri non fatti da voi, per confrontare il vostro metodo con quello 
altrui. 

Velocità, spazio, chiarezza 

Sono tre fattori normalmente incompatibili tra di loro; infatti, i pro¬ 
grammi più sono veloci più occupano spazio in memoria e viceversa. 
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Aumentare la velocità o ridurre la quantità di memoria occupata, spes¬ 
so comporta l'adozione di espedienti che rendono il listato di difficile in¬ 
terpretazione. 

Lo Spectrum è piuttosto veloce e possiede abbastanza memoria per 
la maggior parte delle applicazioni. È comunque meglio, per le prime 
volte, anteporre la chiarezza dei contenuti alla velocità e allo spazio. 

La terza versione 

In pratica, scrivere un programma è più complicato che partire con 
un’idea generica (ampia) e gradualmente completarla con dettagli fino 
ad avere il programma pienamente efficiente. Spesso accade che a 
metà del lavoro si presenti un problema che vi costringe a tornare in¬ 
dietro. 

Inoltre, di solito ci si accorge, una volta completato il programma, 
che poteva essere scritto molto meglio. Per questa ragione i programmi 
vengono riscritti generalmente due o tre volte e si impiega quindi per 
stenderli molto più tempo del previsto. 

Ad alti livelli ciò è inevitabile; un progetto è un processo iterativo; tut¬ 
tavia è forse possibile evitare questa perdita di tempo con una corretta 
“educazione” fin dai primi passi. 
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Calendario: un esemplo 

Come sempre, gli esempi valgono più delle parole: vediamo di illu¬ 
strare quanto esposto creando un programma che sia in grado di pro¬ 
durre un calendario. 

In primo luogo vediamo che cosa deve fare il programma: deve vi¬ 
sualizzare il calendario di un intero anno, ma, poiché questo non entra 
sullo schermo, si accontenterà di visualizzare un mese. Dopo aver pre¬ 
cisato l’anno, verrà chiesto all’utente di inserire il mese da presentare. 
Per rendere il tutto più agile, si può includere un’opzione che permetta 
di avanzare o retrocedere di un mese alla volta sullo schermo. Per evi¬ 
tare di generare un loop senza fine, questa opzione deve mettere in 
grado l’operatore di fermare dolcemente il programma. 

La miglior struttura del programma dovrebbe essere qualcosa di 
questo genere: 


PARTENZA 

r~ 

Stabilisci Mese, Anno 


L_ 

Mostra il calendario dei mesi 


' f 

Salta al mese prossimo/ 
precedente, o lascia 

Lascia 

-X— 

FINE 


Prossimo 


Precedente 

Calcola il nuovo 

mese e anno 
*_ 


Il blocco: "Stabilisci Mese, Anno” è abbastanza semplice da non ri¬ 
chiedere ulteriori espansioni prima della stesura delle righe effettive di 
programma. Per semplicità, alla richiesta del computer, il mese va in¬ 
serito come numero (da uno a dodici). Per rendere il programma il più 
completo possibile, l’ideale sarebbe poter lavorare su tutti gli anni. Pur- 
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troppo ciò è reso impossibile dal cambio dal calendario “Giuliano” a 
quello "Gregoriano”. Pertanto, poiché tale cambio ha avuto luogo in an¬ 
ni differenti in nazioni differenti, il programma accetta solamente gli an¬ 
ni dal 1752 in poi; in quest’anno, infatti, l’Inghilterra fece tale cambio. 

La presentazione dei mesi avviene in tre fasi: 

Cancella lo schermo e presenta il titolo 

i 

Calcola in quale giorno della settimana 
cade il primo del mese. 

I 

Scrivi i giorni del mese. 


Per calcolare in quale giorno delia settimana cade il primo del mese, 
usate l’algoritmo che segue: 

LET D*»3+Y+ 1 NTC < V- 1 V4 > - I NIX < Y- 1 V 1 00 > 

LET D=D+ totale 9 iorni dei mesi dell'anno passati 
LET D“D-7*INT<D/'7> 

in cui il valore finale di D è il giorno della settimana (0-6) e Y l’anno. 

Potete trovare il numero totale dei giorni del mese precedente, per 
mezzo di un semplice loop FOR NEXT: 

FOR a*l TO n~l LET D*D+ 9 iorni del mese a 
NEXT a 

in cui M è il numero (1-12) del mese da presentare. Notate come que¬ 
sto algoritmo non permetta allo Spectrum di eseguire gli statement re¬ 
lativi al FOR NEXT, se il valore di partenza della variabile di controllo è 
più elevato di quello finale; nel nostro caso M=1 (Gennaio). 

La scrittura dei giorni del mese viene eseguita tramite un secondo 
loop FOR NEXT che espone i numeri da 1 all’ultimo del mese in esame, 
con l’aiuto della voce TAB che li allinea sullo schermo nella giusta posi¬ 
zione. 

Tornando al programma originale, il secondo blocco riguarda la pos¬ 
sibilità di avanzare o retrocedere un mese alla volta oppure di interrom¬ 
pere. Per ottenere il risultato cercato, usate la funzione INKEY$ che 
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permette all’operatore di agire azionando un tasto solo. I tasti interes¬ 
sati sono: 

N per avanzare al mese successivo 
P per retrocedere al mese precedente 
Q per interrompere. 

Perché il programma scorra correttamente, è necessario usare di¬ 
versi statement IF. Date un’occhiata al diagramma di flusso seguente. 


no 


Leggi la tastiera 


* 

Sono premuti "N”, "P” o "Q”? 


I sl 

’N’ ? 
no 


yes 


incrementa il numero del mese 
(e dell’anno sa necessario) ) 


yes 


’Q’ 


<r 

no decrementa il numero del mese 

_ (e dell’anno se necessario) 

,, yes 


no 


alla routine LASCIA 

di visualizzazione. 


Vediamo ora come i dati vengono inseriti nel programma. Oltre alle 
variabili semplici, come il giorno, il mese e l'anno, il programma neces¬ 
sita di un elenco del numero dei giorni di ogni mese. Inoltre è meglio se 
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il programma dispone del nome reale dei mesi o almeno delle tre lette¬ 
re più significative per l'abbreviazione; necessita anche di una lista di 
questi nomi. 

Potremo ricorrere a dodici array entro cui sistemare i dodici numeri e 
i dodici nomi per poi ripescarli con gli statement DATA e READ, oppure 
compilare una schiera di LET. Visto però l’esiguo numero di dati, non ri¬ 
correremo né all’uno né all'altro, ma li memorizzeremo semplicemente 
come stringhe, usando, per estrarli, le funzioni di sezionamento delle 
stringhe. Pertanto, nel listato che vedete, m$ rappresenta i dodici nomi 
abbreviati in tre lettere relativi al mese e n$ i dodici numeri a due cifre 
relativi ai numero di giorni di ogni mese. 


10 LET m$«"GenFebMarAprMagGiuL 
ugAaose tot tNovDic" 

20 LET n$*"3128313031303131303 
13031" 

100 INPUT "finno 01752) ";y: IF 

y <1753 THEN GO TO 100 
110 INPUT "Mese (1-12) IF 

ni < 1 OR m > 12 THEN GO TO 110 
200 CLS : PRINT AT A,8;m$(3*»-2 
TO 3);TAB 18; y 

210 PRINT AT 7,2;"Dom Lun Mar M 
er Gio uen sab" 

220 LET n*(3 TO A)*"28" 

230 IF y=A*INT (y/A) AND yolOO 
*INT (y/100) THEN LET n*(3 TO A) 
■ "29" 

2A0 LET d*3+y +INT ((y-1)/A)-INT 
( (y-1) / 100 ) 

250 FOR a =1 TO ffi-1: LET d=d+UAL 
n* <2*a-l TO 2*a) : next a 
260 LET d =d-7*INT (d/7) 

300 PRINT AT 9,0; 

310 FOR a si TO UAL n$(2*m-l TO 
2 ani ) 

320 LET P*2+A* (a+d-7*INT (<a*d) 
/7 ) ) 

330 PRINT TAB p;a; 

3A0 NEXT a 

AO0 PRINT AT 20,0;"Premi i tast 
i 'n ' 'p ' o '«l'¬ 
Aio LET iésINKEY* 

A20 IF i$ < >"n" AND if<>"p" AND 
i$< >"d“ THEN GO TO AIO 
A30 IF i*s"n" THEN LET nism+1 
AA0 IF m >12 THEN LET m*l: LET y 
=y+ 1 

A50 IF i$="p" THEN LET m=M-l 
AGO IF hi < 1 THEN LET m=12: LET y 

~A70 IF i*0"q" THEN GO TO 200 
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Le righe 10,20 comprendono i dati fissi. 

Le righe 100, 110 accettano il mese e l’anno dall’operatore e ne con¬ 
trollano la validità. 

Le righe 200-260 scrivono le intestazioni di ogni mese e calcolano in 
quale giorno della settimana cade il primo del mese. 

Le righe 300-340 scrivono il numero dei giorni del mese. 

Le righe 400-470 permettono all’operatore di avanzare o retrocedere 
di un mese oppure di terminare. 



Di c 


1999 


Doni 

Lun Mar 

Me r 

Gi O 

Uen 

Sa b 



1 

2 

3 

4 

c; 

6 7 

8 

9 

10 

11 

12 

13 14 

15 

16 

17 

18 

19 

2© 21 

22 

23 

24 

25 

26 

27 28 

22 

30 

31 


Premi 

i tasti 

•' n ■ 

'P " 

0 

q" 


DEBUGGING 

Può succedere che il programma da voi scritto non giri, quando date 
il RUN per la prima volta. Non scoraggiatevi perché potreste anche non 
essere voi la causa del mancato funzionamento, in quanto accade 
spesso che i programmi siano affetti da “bug", che noi potremmo chia¬ 
mare “malefiche bestie nere”. Il processo che ha la funzione di stanare 
i “bug" passa sotto il nome di “de-bugging”. 

Questo è un procedimento di deduzione logica che consiste nell’an¬ 
dare a ritroso dal punto sbagliato per trovare che cosa ha condotto al¬ 
l’errore. Le tecniche per fare ciò consistono: 

— nell’aggiungere dei PRINT extra posizionati in modo da rilevare se 
le principali variabili lavorano correttamente e per vedere quale dire¬ 
zione sta prendendo il programma (è questa una buona ragione per 
lasciare degli intervalli fra i numeri di riga); 
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- nell’aggiungere STOP nei punti strategici (programmatori sofisticati 
faranno uso di statement IF-THEN e STOP che bloccano l'esecuzio¬ 
ne del programma nei punti richiesti); 

- nell’eliminare prowisoriamente dal programma righe critiche, ag¬ 
giungendo REM appena dopo il numero di riga. 

Se il programma si blocca, per qualsiasi ragione, usate gli statement 
LET e PRI NT in modo immediato (senza il numero di riga) per esamina¬ 
re ed eventualmente cambiare il valore delle variabili. Fatto ciò, potrete 
far ripartire il programma dallo stesso punto, dando il comando CONT, 
oppure farlo partire da una riga “n” dando il GO TO n. 



CAPITOLO 7 

È BELLO RISCHIARE 


I computer sono macchine fondamentalmente precise. Se chiedete 
loro quanto fa sei per sette, vi sentirete sempre rispondere 42: questa è 
la loro grande forza. 

Ma a volte può essere anche un handicap specialmente quando que¬ 
sta precisione si scontra con gli esseri umani (su argomenti In cui sia 
necessaria la creatività). Quello che manca al computer, quando state 
giocando una partita oppure quando state realizzando un’opera d'arte, 
è appunto la fantasia: le sue risposte saranno sempre meccaniche e ri¬ 
petitive. 

Cosi, il BASIC dello Spectrum mette a disposizione la funzione RND. 

Essa stabilisce una frazione decimale compresa tra zero e uno, o 
meglio tra 0.00000 e quasi uno, cioè 0.99999. Naturalmente lo Spec¬ 
trum non decide coscientemente quale numero casuale scegliere ma, 
come descritto nel manuale, genera una lunghissima sequenza di nu¬ 
meri in modo che non vi sia un legame apparente tra un numero e quel¬ 
lo successivo. Ogni volta che usate la funzione RND, il computer mo¬ 
stra il numero successivo a quello raggiunto in quel preciso istante. Più 
esattamente dovremmo chiamarli numeri “pseudo casuali”, ma in ef¬ 
fetti sono più che sufficienti per le nostre applicazioni pratiche. 


? 

■ 


7? 


? 


I 

■ 


? 




? 

■ 
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CLIVE 


Il programma che presentiamo, denominato "Clive”, è in grado di e- 
strarre, come in una lotteria, un numero vincente posto tra un limite in¬ 
feriore ed uno superiore, stabiliti direttamente da voi. Estrarre il numero 
è facile, notate la riga 220, quasi tutto il resto del programma è destina¬ 
to a renderlo più interessante e a creare un senso di attesa e di eccita¬ 
zione durante la scelta del numero. A questo fine appaiono 100 numeri 
random, che sfilano fino a fermarsi su quello scelto, in corrispondenza 
del quale si mette a lampeggiare il bordo. Variando il colore, BRIGHI, 
FLASH e includendo i comandi di suono, il gioco si fa più divertente: 
provate! 


cls D0MIZE 

120 input "numero piu' basso 
a ; " pìu' aito " ;b 
130 IF a>=b THEN GO TO 120 
200 FGR C=1 TO 100 
210 CLS 

220 PRINT fiT 10,12;INT <a+li+b- 
a)*RND) 

230 PRUSE l + C/4 

24.0 NEXT C 

300 FOR C=1 TO 10 

310 BORDER 0. PAUSE 10 

320 BORDER 7: PRUSE 10 

330 NEXT C 

4.00 PRINT RT 21,0; "Altro tentat 
ivo ? " 

4-10 LET d $ = INKEY$ : IF d* = "" THE 
N GO TO 410 

420 IF d* = "y" OR d $ = "Y" THEN RU 
N 


100-130 Partenza ed inserimento dei limiti alto e basso con relativa 
verifica. 

200-240 Comparsa dei 100 numeri random. 

300-340 Presentazione del numero vincente. 

400-420 Ripetizione del gioco con un altro numero vincente; viene i- 
noltre evitato il rapporto “0/..”, che può trarre in inganno 
prima che abbiate finito di usare il programma. 
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RND 


Mostreremo ora la funzione RND dello Spectrum: vale la pena di da¬ 
re uno sguardo alla casualità dei numeri che essa fornisce. 

Vediamo di effettuare un test con il programma che segue, il quale 
impiega RND per produrre una serie di interi casuali, compresi tra 1 e 
16. Viene tenuto il conteggio di quante volte esce ogni intero e, nello 
stesso tempo, viene disegnato l’istogramma del risultato. 


1© DIM a(16) 

20 LET S = .1 
30 RRNDOMIZE 
100 LET b = 1 + INT ( 16*RND ’> 

110 LET a ( b) =a (b) +S 
120 IF a ( b) >21 THEN STOP 
130 PRINT fiT 21-a(b), 2*b-l; 
140 GO TO 100 


La variabile “s” è usata come fattore scalare ed il minimo valore gli 
viene assegnato alla linea 20. Successivamente si accumulano altri nu¬ 
meri fino a raggiungere la sommità dello schermo in corrispondenza 
della quale il programma si ferma. 

L’istogramma rappresentato in figura si ottiene modificando la ver¬ 
sione originale del programma dando ai numeri random dall’1 al 16 una 
distribuzione “Gaussiana”. Provateci anche voi sostituendo la linea 100 
con le quattro linee che seguono: 



100 LET C =0 : FOR d = l TO 12: LET 
C = C +RND: NEXT d 

102 LET S d 6 V = 2 : LET mean=7.5: L 
ET b = INT ( 1+ ic-6) *sdev +i»ean) 

104 IF b <1 THEN LET b = l 
106 IF b >16 THEN LET b = 16 
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(Le righe 104 e 106 impediscono al programma di bloccarsi qualora 
vengano dati dei valori troppo alti o troppo bassi). 

La funzione è basata sulla formula 

GRND - <SRND-6># SDEV-MEflN 

dove GRND è un numero casuale con distribuzione Gaussiana, SDEV e 
MEAN i valori necessari a produrre GRND e SRND è la somma dei 12 
numeri casuali compresi tra 0 e 1. 


CRO??WOR? 

Come esempio dell’estrazione di lettere a caso, provate questo pro¬ 
gramma, scritto per chi si dedica alle parole incrociate o per chi cerca 
un nome per un nuovo programma. Appena inserita la parola (o la sigla 
mnemonica), con le lettere in dubbio sostituite da punti interrogativi, il 
programma riempirà lo schermo, con le parole proposte, mettendo al 
posto dei punti interrogativi delle lettere a caso, generate dal processo 
di random. Quando lo schermo risulterà pieno, apparirà la richiesta 
“scroll ?”: premete N oppure BREAK per chiudere, o qualsiasi altro ta¬ 
sto per ottenere un secondo “pieno”. 


Provate questo programmino, magari impiegando il vostro nome. Ne 
vedrete delle belle! 


3.00 INPUT ".Parola ? “;wt 
110 FOR a si TO LEN w t 
120 LET c Usui* (a) 

130 IF c*s"?" THEN LET c$*CHR$ 
( 65 +25 *RND) 

140 PRINT Ct; 

150 NEXT a 
160 PRINT 
170 GO TO 110 
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ROULETTE RUSSA 


In alcuni programmi potremmo volere che un evento accada soltan¬ 
to occasionalmente, non come risultato di determinate operazioni né in 
risposta a particolari “input", ma semplicemente come conseguenza 
della funzione RND. 

Un esempio tradizionale è la Roulette Russa in cui un certo numero 
di concorrenti si passa una rivoltella caricata con una sola pallottola. O- 
gnuno di essi si punta alla tempia l’arma e preme il grilletto. La durata 
della partita dipende dalla fortuna dei singoli partecipanti. 

Nella versione del computer è lo Spectrum a decidere quale sia il 
“colpo” fatale. La linea 340 stabilisce gli scatti innocui quando il nume¬ 
ro random prodotto è più alto di 1/6; per dirla in altre parole, uccide, in 
media, un giocatore ogni sei colpi. Il programma prevede anche l’uso 
dei “flags”, che sono delle variabili non usate per particolari valori, ma 
per ricordare se un particolare evento è accaduto o no in precedenza. 
Per esempio l'array p( ) registra i giocatori uccisi durante la partita. 
Tutti gli elementi di p( ) vengono posti inizialmente a zero dalla istru¬ 
zione DI M presente alla riga 150, ma quando uno dei concorrenti muo¬ 
re, l’elemento corrispondente deil’array viene portato a 1 dalla riga 360. 
Tutto questo toglie al programma l’imbarazzo di invitare un giocatore 
già morto a puntarsi il grilletto al suo turno (riga 220). 

In maniera analoga, la variabile "f” decide se continuare la partita, 
controllando se ci sono giocatori rimasti vivi (righe 200, 230, 410). 


iti g8H D ?!ìii) 

ISO PRINT RT 10,5; "< ROULETTE R 
USSR>>” 

130 INPUT "Numero di giocatori 

?" ; n 

140 IF n<l THEN STOP 
150 DIM P <n) 

200 LET f =0 

210 FOR a =1 TO n _ 

220 IF p(a)si THEN GO TO 390 


230 LET f=l 

300 CLS : PRINT RT 6,2; Giocato 

re ; a ; ' ' "e ' i t tuo turno.di ri 

schiare." . _ , 

310 PRINT RT 8,27; "Ui ; RT 9,3 
8 ; " 
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320 PRINT '"Premi ENTER .per f 

ar fuoco": INPUT line ì$ 

330 PRINT RT 8,0J2 $'Z$'2 $'2 $'Z % 
34.0 IF RND>l/6 THEN PRINT RT 8, 
20; ”C Li CK" : GO TO 380 
350 PRINT RT 8.20;" | ;RT 9.1 

9; ; RT 9,0; "sei morto !" 

360 LET p(a)=1 
380 PRUSE 50 
390 NEXT a 

4-00 IF fai THEN GO TO 200 
4-10 PRINT RT 14.,2; "--Lieto di a 
verti conosciuto--" 


100-150 Presentazione, scelta del numero dei giocatori. La riga 110 
produce una stringa di caratteri di 15 spazi necessaria alla 
linea 330 per cancellare parte dello schermo. 

200-390 Passa a turno la rivoltella tra i giocatori. 

400-410 Propone un altro giro se non sono morti tutti, viceversa sa¬ 
luta cordialmente. 


Nota; i caratteri tra virgolette alle linee 310 e 350 sono ottenuti usan¬ 
do i tasti: 

Linea 310 prima parte: 

SHIFT/GRAPHICS 5 SHIFT/3 SHIFT/3 SHIFT/8 SHIFT/8 9 
seconda parte: 

SYMBOL-SHIFT/7 SHIFT/GRAPHICS SHIFT/8 9 
Linea 350 prima parte: 

SHIFT/GRAPHICS 4 SPACE SPACE SHIFT/3 9 
seconda parte: 

SHIFT/GRAPHICS SHIFT/8 SHIFT/2 SHIFT/3 SHIFT/3 SHIFT/2 9 
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CARTA ALTA; CARTA BASSA 

Abbiamo visto come usare RND per estrarre numeri da una gamma 
limitata di valori numerici. Esaminiamo ora la possibilità di scegliere 
anche tra altre cose. Ad esempio, in questo programma lo Spectrum e- 
straecarte da gioco, tra le quali figurano anche il Fante (Jack), la Regi¬ 
na (Queen) e il Re (King). 

Per ottenere una selezione di questo tipo, è necessario stendere una 
lista delle voci quindi abbinare loro un numero aH’interno della lista. 

Nel programma, questa trova posto alla linea 10 e comprende le 13 
carte sottoforma di una stringa di 13 caratteri. Lo Spectrum sceglierà 
una carta generando un numero random da 1 a 13 (vedere la linea 
210 ). 

La partita è giocata da un solo giocatore e dal computer che sceglie 
due carte, ne mostra una e chiede al giocatore di scommettere se l’al¬ 
tra è più alta o più bassa di quella presentata. La quota di partenza è di 
Lit. 100; il gioco avrà termine o quando avrete esaurito i vostri soldi op¬ 
pure quando sarete riusciti a prosciugare il banco delle sue Lit. 9999. 


10 LET C*= "234.56?39DJQKR" 

20 RRNDOMIZE 
30 LET Hi =100 
100 LET a=4. + INT (8*RND) 

110 LET b=l+INT ( 13*RND) ; IF b = 
a THEN GO TG 110 
120 CLS : PRINT RT 2,0;"HO SC6l 
to due carte ; " „ ,, 

130 PRINT RT 5 , 6 .: c* (a) ;TRB 16;" 

14.0 INPUT "La seconda carta e 
piu" alta piu" bassa U) 

della prima ?"; LINE i% 

150 IF i$ < >"h" RND i$ < >" l " THEN 
GO TO 14.0 

160 LET d*="PiU" alta": IF i$=" 
l" THEN LET d$="piu" bassa" 

170 PRINT RT 6.0;"Pensi Che la 
seconda sia ";d$"""Hai £",m 
180 INPUT "Quanto vuoi s corninett 
ere ?";e: IF e<0 OR e>m THEN GO 
TO 180 

190 PRINT "Scommetti £";e: IF e 
=0 THEN GO TO 300 
200 FOR p=l TO 200: NEXT p 
210 PRINT RT 5,16, FLRSH l;c$(b 
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220 IF <i* = ”h" AND b>a) OR <i* = 
"l" AND b <a) THEN GO TO 250 
230 LET m =m-e. PRINT AT 13,0; ' M 
Malasorte": if m>0 then GO TO 2? 
0 

24.0 PRINT '"Sei rovinato H": S 
TOP 

250 LET msfft+e: PRINT AT 13,0;'" 
Ben fatto" 

260 IF m >9999 THEN PRINT "Hai V 
uotato la banca !": STOP 
270 PRINT '"Ora hai £";m 
300 PRINT ''"Premi ENTÉR per un 
altro tentativo": INPUT LINE i$ 
: GO TO 100 


10-30 Assegnazione dei valori iniziali. 

100-130 Sceglie due carte (a & b) e mostra la carta a. 

140-190 Chiede al giocatore di effettuare la scommessa e ne verifica 
la validità. 

200-270 Mostra la carta b, calcola e presenta i risultati. La linea 200 
introduce un piccolo ritardo per generare un po’ di suspen- 
ce. 


POESIA HAIKU 

È un programma che produce una sequenza senza fine della peggio¬ 
re poesia "Haiku” (in quartina), prendendo una frase a caso da ciascu¬ 
no dei quattro gruppi di cui parleremo sotto. Tale programma propone 
un altro tipo di utilizzazione di voci casuali non numeriche. 

Per fare ciò, queste vengono inserite in statement DATA, poi ne 
viene letto un numero a caso e infine viene usata l’ultima che è stata 
letta. 
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I quattro gruppi di frasi vengono tenuti in quattro gruppi di statement 
di DATA, partendo dalle righe 1000, 1100, 1200 e 1300. Il gruppo da u- 
tilizzare viene selezionato ad opera delle righe 100 e 110. 

Se volete divertirvi, componete voi stessi la lista di frasi: non è ne¬ 
cessario che si tratti di poesia, potete utilizzare spezzoni di articoli, di¬ 
scorsi ufficiali o altro. Con lunghe liste di frasi otterrete risultati più vari; 
tuttavia, per un corretto funzionamento del programma, ogni gruppo 
deve contenere lo stesso numero di frasi e la riga 10 va adattata a tale 
numero. 


h^NoStlIZE 

100 FGR a=1000 Tu 1300 STEP 100 
110 RE5TORE a 

120 FGR b = 1 TG l+m*RND: RERD C$ 
NEXT b 
130 PRINT C* 

14.0 NEXT a 
150 PGKE £3692,0 
160 PRUSE 200 
170 PRINT "" 

180 GG TG 100 

1000 DRTR "Un pesce sa Ita" , "Il c 
ieio e ' vs rde","I cormorani si t 
ij f f ano " . "Doe u6m ini" 

1010 DRTR "L'ondeggia re-de i riso 
" , Ga 1 t i 

1100 DRTh "Presso lo stagno", Mo 
rmorio del ven to","I grilli can t 
ano " 

ilio DRTR "Un fuimine","Farfa l le 
"Lungo il sentiero" 

1200 DRTR "Con il bue","Fumo in 
lontananza","Una mano applaude" 
1210 DRTR "E' quasi mezzogiorno" 
"Il bambù' cresce","Un piccolo 
f i o r e " 

1300 DRTR "Stanno arrivando lent 
amente","Il nido degli uccelli n 
egli aiti alberi" 

1310 DRTR "Succede come ieri","l 
fanciulli sono silenziosi" 

1320 DRTR "Gli aratri riposano n 
e il erba alta","Gli alberi cresc 
ono solitari" 


10-20 Presentazione dei valori iniziali. 

100-140 Stampa una frase da ogni gruppo. 

150-180 Permette lo "scroll” allo schermo, pausa per applausi, inizio 
di una nuova “composizione". 
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CRYPTO MACHINE 


Questo programma è indispensabile alle spie di Roma, di Omsk, o di 
qualunque altra parte del globo, in quanto trasforma qualsiasi messag¬ 
gio in un codice indecifrabile. 

Per la decodifica, è necessario conoscere la “chiave” usata per la 
codifica onde sbloccare lo Spectrum. Ogni carattere è codificato (o de¬ 
codificato) nel messaggio usando un tasto scelto in base alla sequenza 
generata dalla funzione RND. 

L'operatore inserisce il valore di partenza (da 1 a 65535) che viene 
usato dallo statement RANDOMIZE alla linea 140 per predisporre la se¬ 
quenza corretta della codifica o della decodifica. 


100 INPUT "Battere D per decodi 
fi care,E per codificare"; LINE e 

*110 IF e$o"e" AND e $ < > "E" and 
e$<>"d" AND e*<>"D" THEN >30 TO 1 
00 

120 INPUT "Inserire il numero ( 
1-65535) ",K 

130 IF K<1 OR k>65535 THEN 00 T 
0 120 

14.0 RANDOMIZE K 

150 input "Battere il messaggio 
;"' LINE i % PRINT i« 

200 FOR a =1 TO LEN i$ 

210 LET C =C0DE i*ia): IF C<32 0 
R 0 127 THEN 00 TO 250 
220 LET X =96*RND: IF e$*"d" OR 
e$ = "D" THEN LET X =-X 
230 LET C=C+X: IF C>127 THEN LE 
T C = C-96 

240 IF C <32 THEN LET C=C+96 
250 PRINT CHR$ C, 

260 NEXT a 


100-130 Istruzioni per codificare e decodificare + tasto di partenza. 
140 Dispone il generatore del numero RANDOM al valore di par¬ 

tenza. 

150 Accettazione del messaggio (i$). 
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200-260 Codifica/Decodifica e scrittura in successione di ogni carat¬ 
tere. Il numero chiave per ognuno di essi, generato alla li¬ 
nea 220, viene sommato o sottratto al CODE del carattere 
stesso. Se il risultato esce dal range dei numeri CODE per il 
numero dei caratteri “normali” (32-127), viene addizionato 
o sottratto 96 per riportarlo all’interno dell'Intervallo. 


MIXUP 

Qui la funzione RND crea un problema che voi dovrete risolvere. 

Mixup è infatti la versione per computer del vecchio gioco della tavo¬ 
letta con le lettere. Dovrete cioè cercare di riordinare secondo l’ordine 
alfabetico le 24 lettere racchiuse nel quadrato da 5x5, muovendo una 
lettera alla volta, entro il quadratino vuoto. Alla partenza, il programma 
vi presenta le lettere in ordine corretto, dopodiché queste saranno me¬ 
scolate più o meno a lungo in funzione del grado di abilità. Se nel riordi¬ 
nare impiegherete più di 9999 mosse, lo Spectrum vi esprimerà il suo 
disgusto! 

Il programma lavora direttamente con l’immagine sullo schermo e la 
funzione SCREENS rileva quanto è scritto in una particolare posizione. 
La linea che delimita l’area di gioco, impedisce di confondere gli spazi 
esterni col quadratino vuoto interno entro il quale vanno mosse le lette¬ 
re. 



77 




10 DRTR 0,-1,0,1,-1,0,1,0 
SO DIM h (4) : DIM V (4) 

30 FGR a=l TO 4: READ h(a) ,v (a 
): NEXT a 

100 PLOT 101,69: DRRU 45,0: DRR 
U 0,45: DRRU -45,0: DRRU 0,-45 
110 FOR y=8 TO 18: FOR X=l3 Tu 
17 

ISO PRINT RT y,X ;CHR# (12+x+5*y 

' 130 NEXT X: NEXT y . 

140 LET X=17: LET y=12: PRINT H 

8^Ó X RRND0MIZE : LET Xl=0: LET y 
1=0 

210 INPUT TRB 8;"Rbilita' (1-9) 
?";S: IF S<1 OR S>9 THEN GO TO 
210 

220 FOR a=l TO 5*S _ . 

230 LET C=1+INT (4*RND): LET Xei 
= x+h(C): LET y2=y+v(c) . 

240 IF SCREEN* <y2,x2>="" OR (X 
l=x2 RND y1=y2) TMEN uO TO 230 
250 PRINT RT y,x;SCREEN* (y2,x2 

* 260 LET^XlaX: LET yl*y; LET X aX 
2: LET y=y2 

270 NEXT a _ , 

300 FOR mal TO 9999: PRINT hT 1 
8,12;"Muovi ";m 

310 PRINT RT 20, il; "Lettera ?" 
320 LET i**INKEY$ : IF »*=*'" THE 
N GO TO 320 

330 IF CODE i$>96 TMEN LET i|*C 
HR$ (CODE i $-32) „ . 

340 FOR a al TO 4: IF SCREEN* (y 
+ vMa) ,x+h(a))ei* TMEN GO TO 400 
350 NEXT a 
400 PRINT RT 20,0,, 

410 PRINT RT y,x; SCREEN* iy+via 
) ,x +h (a ) ) 

420 LET x *x +h (a ) : LET yxy+via): 
PRINT RT y,X ; " " „ „, 

500 FOR p =8 TO 12: FOR q = 13 TO 
17 

510 IF paia RND q*l? TMEN GO TO 
600 

520 IF SCREEN* (p,q)OCMR* «12 + 
q+5*P> TMEN GO TO 540 
530 NEXT q: NEXT p 
540 NEXT m 

600 PRINT RT 20,10;"*FINE*" 


10-30 Predispone gii array h( ) e v( ) in modo tale che contenga¬ 
no le componenti orizzontati e verticali delle quattro direzio¬ 
ni possibili di movimento. 
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100-140 

200-210 

220-270 


230-240 

250-260 

300-540 

300-330 


340-350 

400 

410-420 

500-530 

600 


Disegna il quadrato con le 24 lettere in ordine. 

Chiede il grado di abilità. 

Mescola le lettere un numero di volte proporzionale a “s”; 
“x” ed "y” sono la posizione attuale del quadratino vuoto, 
“xl” e “yl” la posizione precedente e "x2” e ”y2” la posizio¬ 
ne successiva; le posizioni vengono ricordate per impedire 
che il programma effettui un rimescolamento solo tra due 
quadrati. 

Prende una delle quattro posizioni circostanti e controlla 
che non sia stata usata l’ultima volta. 

Muove la lettera nel quadratino vuoto e aggiorna xl e yl. 
Esegue il loop ad ogni mossa del giocatore. 

Presenta il numero della mossa, prende in considerazione 
la lettera che il giocatore intende spostare e se necessario 
la converte in maiuscola. 

Si accerta che la lettera scelta sia adiacente al quadratino 
vuoto; in caso contrario, attende una nuova lettera. 
Cancella la scritta “Lettera?" dallo schermo. 

Sposta la lettera scelta nel quadratino vuoto. 

Controlla se le lettere sono nel giusto ordine; se lo sono sal¬ 
ta alla linea 600, se non lo sono retrocede alla 300. 

Fine del gioco. 


Ricordatevi di battere lo spazio tra gli apici delle linee: 140, 250 e 
420. 
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CAPITOLO 8 

PEEK, POKE, IN e OUT 


Lo Spectrum può indirizzare fino a 65536 (64 K) locazioni di memo¬ 
ria. Le prime 16384 sono occupate dalla ROM, le rimanenti 16384 (nel¬ 
la versione a 16K) o 49152 (nella versione a 48K) sono a disposizione 
della RAM. Come descrive anche il manuale di programmazione, è 
possibile esplorare tutte le 65536 locazioni, per mezzo dell'istruzione 
PEEK, ed anche cambiare il contenuto di quelle relative alla RAM, tra¬ 
mite il comando POKE. 

Ognuna delle locazioni, sia che si trovi in RAM sia che si trovi in 
ROM, contiene un ''byte" formato da 8 bit i quali possono essere e- 
spressi a seconda del contesto: 

— un numero binario a 8 bit nel range 00000000-11111111; 

— un numero esadecimale nell’intervallo 00-FF; 

— uno qualunque dei caratteri del set riportato nell’appendice del ma¬ 
nuale dello Spectrum. Possono essere "keyword”, simboli grafici 
oppure caratteri di controllo della stampa, come caratteri alfanume¬ 
rici; 

— numeri decimali compresi nel range 0-255; 

— istruzioni in codice macchina per il micro processore Z80. 

Sia PEEK che POKE usano numeri in forma decimale. Molto spesso 
ci si trova di fronte alla necessità di leggere o di variare il contenuto di 
una particolare locazione di memoria. In questo caso la funzione da u- 
sare è POKE con la quale è possibile sia memorizzare in RAM nuovi va- 
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lori che leggere e sostituire quelli delle Variabili di Sistema che stabili¬ 
scono il comportamento dello Spectrum. Ad esempio, lo scroll continuo 
dello schermo (senza l’apparire della solita richiesta “scroti?"), è pos¬ 
sibile alterando la memoria nel modo che segue: 

POKE 23692,0 

Nel corso delia lettura di questo libro troverete altri esempi sull’uso di 
PEEK e di POKE con le variabili di sistema: potrete inoltre trovarne un 
sunto nell’Appendice 1. 

PEEK legge, come già detto, il contenuto della ROM, pertanto, se vo¬ 
lete divertirvi un po’ provate ad entrare nell’area della ROM contenente 
la serie di punti necessaria alla formazione dei caratteri normali (codici 
da 32 a 127). Ogni carattere, come spiegheremo più in dettaglio, viene 
presentato sullo schermo, o stampato dalla ZX printer, come un array 
di 8 x8 punti elementari chiamati "pixel” i quali danno forma ad ogni ca¬ 
rattere, per l’intervento di 8 byte (8x8 bit) siti nella ROM. Poiché la 
Variabile di Sistema CHARS (23606,7) contiene un numero che è 256 
volte al disotto dell'Indirizzo ROM di partenza della tavola dei punti, 
possiamo calcolare l’indirizzo del primo di questi byte nel seguente mo¬ 
do: 

Contenuto di CHARS + 8 * CODE del carattere 

Prendiamo ad esempio il carattere 0 di cui facciamo scrivere alio 
Spectrum il valore degli 8 byte relativi per mezzo della routine 

10 PRINT "ADDR" .''CONTENTS" 

20 LET s=PEEK 23606+256*PEEK 23607+8*CODE ,, 0" 

30 FOR a=s T0 s+7: PRINT a,PEEK a: NEXT a 


ADDR 

CONTENTS 


15744 

0 

00000000 

15745 

60 

00111100 

15746 

70 

01000110 

15747 

74 

01001010 

15748 

82 

01010010 

15749 

98 

01100010 

15750 

60 

00111100 

15751 

0 

00000000 
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La colonna di destra è stata aggiunta per mostrare il contenuto di 
ogni locazione sottoforma di un numero binario da 8 bit. Immaginate, 
infatti, di sostituire gli “1" con dei quadratini neri e gli "0” con spazi 
bianchi e vedrete apparire la forma del carattere. 


STENDARDI 





Le serie di punti site nella ROM sono qui impiegate per ottenere scrit¬ 
te gigantesche simili a stendardi. Se siete in possesso di una stampante 
per lo ZX, otterrete messaggi che verranno stampati per il lungo, in mo¬ 
do da poterne regolare la lunghezza, e la cui altezza corrisponde al for¬ 
mato della carta. 

Controllare l'ampiezza dei caratteri: inserendo il valore “4”, il rappor¬ 
to lunghezza/altezza rimane inalterato, mentre, ad esempio, col “2” i 
caratteri saranno alti il doppio della loro larghezza. Il programma può 
anche manipolare caratteri grafici qualora il CODE sia compreso tra 
144 e 164. 

In questo caso si va a leggere la Variabile di Sistema UDG (23675,6) 
per cercare la partenza in RAM delle serie di punti che definiscono i ca¬ 
ratteri grafici. 


180 input "inserisci il ntessagg 
io, 'm$ : print rn$ 

110 input "Larghezza del caratt 
ere ? ";w: print ""Larghezza ";w 
120 FOR a *1 TO LEN Iti $ 

130 LET b=PEEK 23606+2S6*PEEK 2 
360?+8*C0DE Iti $ < a ) 
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14.0 IF CODE (lì $ la) >14.3 RND CODE 
fiì $(a) <165 THEN LET b=PEEK 23675 + 
256+PEEK 23676+8* (CODE m$(à)-144. 


C =0 TO 
NEXT < 


150 DIM X (8): FOR 
X (8-C ) =PEEK (b + C) 

£00 LET d =128 
210 FOR c=0 TO 7 
£20 FOR e =1 TO W 
230 FOR f=l TO 8: 

N GO TO 250 _ 

24.0 LPRINT TRB 4-*f-4.;"BB 

F e =W THEN LET X (f ) =X < f ) -d 
£50 NEXT f: LPRINT 
£60 NEXT S: LET d=dx2 
270 NEXT C 
280 NEXT a 


LET 


IF X(f) <d THE 


Tra gli apici presenti alla linea 140 vanno inseriti quattro spazi “inver¬ 
se video". 

100-110 Stesura del messaggio e definizione della sua ampiezza. 

120-280 Loop principale del programma. Viene eseguito ad ogni ca¬ 
rattere. 

130-140 Assegna a “b” l’indirizzo del primo byte, relativo alla serie di 
punti del carattere da stampare. 

150 Inserisce gli 8 byte della serie di punti negli 8 elementi 

x( ). 

200-270 Routine di scrittura carattere. 

210-270 Loop eseguito per ogni colonna della serie di punti. 

220-260 Loop che ripete la scrittura di una colonna per un numero 
“w” di volte. 

230-250 Loop di scrittura di una colonna. 

L'algoritmo usato per convertire il valore decimale (0-225) dato da 

PEEK nei singoli bit binari, è il seguente: 


LET d*128 

FOR c-0 TO 7 

IF x>*d THEN PRINT "Bit 

LET d-d^2 

NEXT c 


1" : LET *«x-d 


dove “x” è appunto il valore ottenuto dallo statement di PEEK. 

É stata provata anche una versione che impiegava l'operatore "1” 
ma era incredibilmente lenta. 
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OROLOGIO 


Questo programma usa la Variabile di Sistema FRAMES (la cui loca¬ 
zione RAM è 23672/3/4) per procurarsi una precisa frequenza di clock 
per l’orologio digitale. FRAMES, come vi sarete accorti, è una variabile 
a tre byte incrementata una volta ogni cinquantesimo di secondo (ogni 
sessantesimo per la versione U.S.A.). Gran parte del programma è ri¬ 
volto allo sviluppo del display che possiede cifre quattro volte più gros¬ 
se del normale. Ciò si ottiene eseguendo dei PEEK alle serie di punti 
nella ROM e usando l’informazione per mostrare ogni cifra come un ar- 
ray 4x4 dei caratteri grafici standard (codice 128-143). Poiché l’in¬ 
grandimento diretto dei caratteri è una funzione piuttosto lenta e poiché 
il programma necessita di una certa velocità per poter mostrare una ci¬ 
fra al secondo, è necessario memorizzare a priori, in un array di strin¬ 
ghe, i caratteri grafici interessati che potranno così essere scritti velo¬ 
cemente prima di iniziare la simulazione dell’orologio. Ciò significa che, 
alla partenza del programma, dovrete attendere una ventina di secondi 
con lo schermo vuoto prima di poter inserire, su richiesta, l’ora esatta. 


10 GO TO 1000 

100 LET t sPEEK 23672+256 *PEEK 2 
3673+65536*PEEK 23674 
110 LET t1=PEEK 23672+256 *PEEK 
23673 + 65536*PEEK 23674: IF tl>t 
THEN LET t=tl 
120 LET t =INT (t/50) 

130 LET h =1NT (t/3600): LET t = t 
-3600 *h 

140 LET m=INT (t/60): LET S=t-6 
0 *m 

150 IF h >12 THEN LET h =h -12 : GO 
TO 1220 

160 LET h $=STR$ h: LET m$=STR* 
m: LET sS=STRS S 
170 LET p $=h * + " : " +«i$ + " : " +S $ 

200 FOR a = 1 TO 8: LET b=4*a-4 
210 LET c«CODE p* (a) -CODE "0"+2 
: IF C(1 OR 0 12 THEN LET C =1 
220 PRINT RT 9 , b ; C * ( C , 1 ) ; RT 10, 
b ; c $ ( c . 2 ) ; RT 11 , b ; c $ ( c , 3 ) ; RT 12 , 
bc $ ( c , 4 ) 

230 NEXT a 
240 GO TO 100 
1000 REM messa a punto 
1100 DIM C$ (12,4,4): DIM h*(2): 
DIM m« (2) : DIM S$ (2) 
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1110 FOR a =2 TO 12: LET b =PEEK 2 
3606+256*PEEK 23607+8*(CODE "0"+ 
a -2) 

1120 FOR C=1 TO 4.: LET d=PEEK (b 
+2*C-2) : LET e =PEEK (b+2*C-l) 
1130 LET f =64. 

1140 FOR 9=1 TO 4 

1150 LET dl=INT (d/f): LET d =d - f 
*d 1 

1160 LET e1=INT (e/f): LET e =€ - f 
*e 1 

1170 LET C* (a,C,g) =CHR* (128+dl + 
4*6 1) : LET f = f/4 
1180 NEXT g: NEXT C: NEXT a 
1200 INPUT "Set : or e ; ";h;TRB 7; 

"min ; ";m;TRB 7;"sec ";s 

1210 INPUT "Premi ENTER per far 
partire L'orologio ", line a$ 
1220 LET t =50* (S +60*m +3600*h) 
1230 LET t1=INT (t/65536): LET t 
=t-65536*t1 

1240 LET 12 = INT (t/256): LET t = t 
-256 * 12 

1250 POKE 23674,tl; POKE 23673,t 
2: POKE 23672, t 
1260 GO TO 100 


10 La parte di inizializzazione dei programma viene messa alla 

fine del listato (alla linea 1000) per aumentare la velocità 
del loop principale. 

100-240 Loop principale dei programma eseguito continuamente per 
aggiornare il display. 

100-120 Ottiene l'ultimo tempo in secondi eseguendo un doppio 
PEEK alla variabile FRAMES e prendendo il risultato più al¬ 
to. 

130-140 Conversione in secondi, minuti e ore. 

150 Reset dell’orologio dopo 12:59:59. 

160-170 Costruzione di una stringa da 8 caratteri (p$) contenente il 
tempo sotto forma di ore: minuti: secondi. 

200-230 Loop per mostrare ogni carattere di p$. 

210 Calcolo dell’array (c$) da usare. Scrittura di uno spazio se il 

carattere in p$ non è 0-9 oppure: 

220 Scrive quattro stringhe di 4 caratteri (da c$) visualizzando 

una cifra sullo schermo. 

1000 Partenza della routine iniziale. Vedere la linea 10. 
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1100-1180 Stabilisce l’array c$ e lo riempie con simboli grafici appro¬ 
priati. C$ contiene un array di 4x4 caratteri grafici per o- 
gnuno dei dodici simboli da mostrare. Il primo di tali simboli 
è uno spazio, gli altri undici corrispondono alle cifre da 0 a 9 
e ai due punti. Un’estensione di questa tecnica può anche 
essere applicata a dei giochi, usando un range di caratteri 
più vasto. 

1200-1250 Accetta il tempo impostato dall’utente e predispone di con¬ 
seguenza la variabile FRAMES. 


SOMME VELOCI 

Il programma che segue usa la variabile FRAMES per misurare il 
tempo impiegato a risolvere una serie di dieci semplici addizioni o sot¬ 
trazioni. Alla fine viene dato il numero delle risposte esatte e il tempo 
totale. 


, RRNDOMIZE : LET S=0 
L0 POKE 23672,0: POKE 23673,0: 
POKE 23674,0 

200 FOR g=l TO 10: CLS : PRINT 
RT 4, 10 ; "Dowanda " ; g , RT 10,10, 
210 IF RND <.5 THEN GO TO 400 
300 LET a = INT (90*RND)+10: LET 
b=INT (90+RND)+10 
310 LET C=a+b: PRINT a;" + ’’; b; 

320 GO TO 500 

4O0 LET a = INT (90+RND) +10 : LET 
b = INT Ì90+RND)+5 
410 IF b > sa THEN GO TO 400 
m 420 LET c =a -b : PRINT a;’’ - " ; b 

500 ÌNPUT LINE a $ : IF a$s"" THE 
N GO TO 500 

510 FOR X s l TO LEN a»: IF a*(x) 
<"0" OR a * (X) >”9" THEN GO TO 500 
520 NEXT X 

530 LET anssORL a $ : PRINT ans 
540 IF ans se THEN LET S=S+1: PR 
INT RT 14,12, "ESATTO" 

550 IF ans OC THEN PRINT RT 14, 
12; "SBAGLIATO" 
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560 PRINT RT 18,7;"Punteggi0 
s;" su " ; g 

570 FOR 1=1 TO 200: NEXT t 
580 NEXT g 

600 LET t=PEEK 23672+256*PEEK 2 
3673+65536 *PEEK 23674 
610 LET tl=PEEK 23672+256*PEEK 
23673+65536*PEEK 23674 
620 IF t<tl THEN LET t. = tl 
630 PRINT RT 4,0,,RT 14,0,, 

640 PRINT RT 10,5;"Tempo impieg 
ato ";INT (t/50);" secondi" 

100-110 Azzera FRAMES il cui valore è usato da RANDOMiZE prima 
del CLEAR. 

200-580 Loop principale eseguito ad ogni domanda. 

210 Decide se proporre un’addizione o una sottrazione. 

300-320 Propone un’addizione. 

400-420 Propone una sottrazione. 

500-530 Questa routine accetta la risposta come stringa, verifica 
che questa contenga solamente cifre da 0 a 9 e la converte 
in numero. 

540-560 Aggiorna il punteggio e scrive il commento in funzione della 
risposta. 

570 Breve ritardo per ottenere il quale non è possibile usare 

PAUSE, perché quest’ultimo potrebbe essere interrotto dal¬ 
la pressione accidentale di un tasto. 

600-620 Calcola il tempo trascorso eseguendo due PEEK successivi 
al FRAMES e prendendo il valore più alto. 

630-640 Cancella parte del display e mostra il tempo impiegato. 
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SPAZIO I/O 


Per manipolare le 65536 locazioni di memoria, la CPU Z80 può acce¬ 
dere ad altrettanti indirizzi di I/O (Input-Output = ingresso-uscita), nu¬ 
mero che però è notevolmente inferiore in conseguenza del tipo di 
hardware su cui lo Spectrum opera. L’accesso a queste locazioni è 
possibile tramite i comandi BASIC:IN e OUT che agiscono come PEEK 
e POKE, ma che, a differenza di questi, sono appunto rivolti alle loca¬ 
zioni I/O anziché alla memoria. Con espansioni di memoria esterne le i- 
struzioni ritornano alla loro prima funzione. Il comando IN si può usare 
in un modo del tutto particolare, facendogli leggere la tastiera meglio di 
come faccia la funzione INKEY$, la quale non rileva niente se vengono 
premuti due tasti contemporaneamente o se viene azionato il tasto 
SHIFT da solo. Anche se la maggior parte delle volte ciò non comporta 
problemi, in particolari situazioni, come nell’uso di programmi di giochi, 
la funzione INKEY$ può essere insufficiente. Facendo interrogare la ta¬ 
stiera da IN si superano tali limitazioni con la semplice aggiunta di una 
routine per sapere esattamente quale o quali tasti sono stati schiaccia¬ 
ti. Per contro, il comando IN non è dotato, come INKEY$, di adeguato 
ritardo per ottenere un effetto antirimbalzo, per cui è possibile che du¬ 
rante il suo azionamento si generino on-off consecutivi con strane con¬ 
seguenze per il vostro programma. 

I risultati ottenuti da un’istruzione IN rivolta alla tastiera si possono 
calcolare nel modo seguente: 

— 1 azionando il tasto esterno di una mezza riga 

— 2 azionando il tasto seguente di una mezza riga 

— 4 azionando il tasto centrale di una mezza riga 

— 8 azionando il tasto seguente di una mezza riga 

— 16 azionando il tasto interno di una mezza riga. 

Per esempio IN 32766 porta 

255 se non viene premuto alcun tasto da “B” a “SPACE”. 

254 se viene premuto “SPACE”. 

253 se viene premuto “SIMBOL SHIFT”. 

231 se vengono premuti contemporaneamente "B” e “N”. 
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TEMPO DI REAZIONE 


Questa è una semplice gara tra due giocatori che devono agire ognu¬ 
no su un proprio tasto ("B” per quello a sinistra, “SPACE” per l’altro), il 
più velocemente possibile, all'apparire di una stella al centro dello 
schermo. I giocatori hanno dieci tentativi a disposizione e il punteggio 
viene costantemente aggiornato. Se entrambi premono contempora¬ 
neamente (è difficile) i relativi tasti, non viene dato, per quella prova, 
nessun punteggio. I due tasti vanno sempre scelti nella medesima mez¬ 
za-riga poiché devono essere presi in esame da un solo statement di 
IN. 


10 RANDOMIZE LET L=0 : LET r = 

0 

100 FOR a=i TO 10 
110 FOR b = 100 TO 100 +300 *RND 
120 IF IN 327660255 THEN PRINT 
AT 15,10,”GIR LE DITA": BEEP .2 
,30: CLS : Gu TO 110 
130 NEXT b 

14.0 PRINT AT 15,15;"*" 

150 LET i=IN 32766: IF i=255 TH 
EN GO TO 150 

160 LET S = -24. : IF i =239 THEN LE 
T 1=1+1: LET £=0 
170 IF i=254 THEN LET f=f+l: LE 
T S =12 

130 PRINT AT 15,0;l ;TAB 15;" "; 
TAB 30,f: BEEP 1,S 
190 NEXT a 


10 Predisposizione dei valori iniziali. 

100-190 Attesa casuale. Si accerta che nessuno dei due contendenti 
agisca prima del tempo. 

140 Disegna là stella. 

15p Attesa per l’intervento nella mezza riga “B” - "SPACE”. 

160-170 Calcolo del risultato. 

180 Presenta il punteggio aggiornato ed emette un suono appro¬ 

priato. 
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Nota: lo statement BEEP, che tratteremo più avanti, è stato introdotto 
per rendere più attraente la gara e per introdurre un ritardo che sareb¬ 
be stato impossibile realizzare con PAUSE, che potrebbe venire inter¬ 
rotto dalla pressione accidentale di un tasto. 
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CAPITOLO 9 


BELLE ARTI 


Uno dei pregi più accattivanti dello Spectrum sta nella sua capacità 
di elaborare facilmente disegni in alta risoluzione grafica. Nel capitolo 4 
abbiamo imparato come disegnare un grafico per mezzo del comando 
PRINT AT, grafico con una risoluzione di 32 punti orizzontali e 22 verti¬ 
cali. Usando l’alta risoluzione grafica avrete a disposizione ben 256 
punti orizzontali e 176 verticali in grado di fornire dettagli ai pari di un 
normale apparecchio televisivo. Per capire come lavora l’alta risoluzio¬ 
ne grafica, è necessario conoscere il modo in cui lo Spectrum genera 
l’immagine sul video. Pertanto, prima di affrontare i programmi, eccovi 
qualche accenno sull’argomento. 

L’intera area del display, comprese le linee in basso riservate nor¬ 
malmente ai commenti, ai comandi INPUT e all'editing, è suddivisa in 
24x32 settori ognuno dei quali (character celi) è ulteriormente formato 
da un array di 8 ‘‘pixel” (abbreviazione di "picture element” = elemento 
di figura). Il carattere si concretizza sullo schermo attribuendo ad 
alcuni pixel il colore nero ad altri il colore bianco (tratteremo i colori in 
un ulteriore capitolo). 

Volendo scrivere nell’angolo in alto a sinistra delio schermo la lettera 
“A”, tracciate come segue la mappa dei pixel. 


(A) Cella di car attere 
contenente “A”. 

(B) Seconda cella 
della prima riga. 



(C) Prima cella di caratteri 
sulla linea seguente. 
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Contando anche le ultime due linee in basso destinate ai commenti e 
alia scrittura, vi sono a disposizione 22x32 e 22x8x32x8 = 176x256 
pixel. 

È disponibile un’area totale larga 256 pixel ed alta 176. 

Ciascuno di questi punti è pilotato dai comandi di HRG (Hight Reso¬ 
lution Graphics=alta risoluzione grafica) PLOT, DRAW e CIRCLE i quali 
possono scegliere entro le gamme 0-175 e 0-255 anziché tra 1 -176 e 1 - 
256. In definitiva questi piccoli pixel vengono usati sia per ottenere 
l’HRG che per formare i caratteri. Nel primo caso, i comandi agiscono 
direttamente su ogni singolo pixel, attribuendogli il colore bianco oppu¬ 
re nero (più precisamente i colori "INK” o “PAPER” come vedremo tra 
poco), nel secondo il comando PRINT interessa un array di 8x8 pixel 
disposti in funzione del carattere. 


FIGURE 


! ai[n]g|g|[p 


nn 1 —innnnnnn 
□□□□□□□□□□ 


X =234. 
y = 10 


Il prossimo programma vi permetterà di disegnare figure sullo scher¬ 
mo e deve essere inteso come esercizio per imparare il funzionamento 
dello statement PLOT x,y e delle coordinate X-Y. Viene anche introdot¬ 
to l’uso del PLOT INVERSE 1; x,y per cancellare l’ultimo punto dise¬ 
gnato. 
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Il disegno si esegue usando i tasti 5,6,7,8 per spostare attraverso lo 
schermo il piccolo cursore lampeggiante. Per aiutarvi, nel caso voleste 
eseguire un disegno di alta precisione, vengono presentate nell’angolo 
in basso a sinistra dello schermo le coordinate correnti. La cancellazio¬ 
ne è possibile azionando assieme ai tasti sopracitati lo SHIFT e riper¬ 
correndo il tratto errato. Una volta terminata l’opera d’arte, date SHIFT- 
BREAK per interrompere il programma ed, eventualmente, COPY per la 
stampa su ZX printer. Se invece desiderate memorizzarlo su nastro, 
date: 

SRVE "nome" SCREEN* 
per poterlo richiamare in futuro. 

Se, una volta fermato il programma, vi doveste accorgere che il dise¬ 
gno è incompleto, non date il RUN (cancellereste lo schermo), ma per 
richiamarlo date il CONTINUE. 

Nota bene: il programma è strutturato come un loop senza fine, nor¬ 
malmente da evitare, ma che qui è accettabile per la continua attività 
richiesta ed anche per non costringere il computer a formulare, dopo o- 
gni mossa, la richiesta “vuoi continuare”? 

INKEY$ ritorna una stringa che viene convertita in un CODE numeri¬ 
co per permettere l’uso dei codici 8-11 di movimento del cursore, che 
non sono visualizzabili. Solo per questo motivo si è dovuta scegliere la 
soluzione descritta, perché altrimenti sarebbe stato meglio rendere K 
una variabile stringa e confrontarla con il contenuto delle stringhe nelle 
righe 120-180, ad esempio: 

IF k*“"5" - 


10 LET 
100 FOR 


X - 12?: LET y=38 

C=0 TO 1: PLOT INVERSE 


c ; x , y 

110 LET k=C0DE INKEY$ 

120 IF k>=53 RND k<=56 THEN PLO 
T x , y 

130 IF k > =8 RND k<:=ll THEN PLuT 
INVERSE 1; X , y 

14.0 PRINT RT 20.0 ; “x =“ ; x ; " “ " 

y = ",y,” 

150 IF i. k = 8 OR k =53) fiND X >0 TH 
EN LET x = X - 1 

160 IF U=9 OR k =56 ) hND X <255 
THEN LET X=X +1 
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170 IF U=10 OR K. =54 ) RND y>0 T 
HEN LET y=y-l 

1S0 IF U=ll OR K =55 > RND y < 175 
THEN LET y=y+l 
190 NEXT C 
200 00 TO 100 


10 

100-190 

110 

120 

130 


140 

150-180 

200 


Predispone i valori di partenza delle coordinate x - y. 
Loop principale che fa lampeggiare il cursore. 
Esplorazione tastiera. 

Se risulta premuto uno dei tasti 5,6,7,8 disegna in nero il 
punto corrispondente alla posizione del cursore. 

Se risulta premuto uno dei tasti 5,6,7,8, assieme a SHIFT, 
disegna in bianco il punto corrispondente alla posizione del 
cursore. 

Scrive i valori aggiornati delle coordinate. Gii spazi seguono 
i numeri per assicurare ogni volta la loro cancellazione. 
Calcolo delle nuove coordinate. 

Ritorno per un altro flash del cursore. 


p—n f —H p—p—^ p—p f~~ . . 
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SOMBRERO 


Esiste sicuramente un certo 
fascino nell’uso del computer 
per disegnare grafici tridimen¬ 
sionali, ottenuti da funzioni ma¬ 
tematiche. Un esempio è il 
“Sombrero” che rappresenta la 
funzione: 


Z-COS r * EXP<-r-'S > 


in cui “r” rappresenta la distanza dal centro del piano X-Y al punto da 
plottare ricavato da x 2 + y 2 

li programma non è lungo da battere, però per completare il disegno, 
il computer impiega circa 25 minuti! 


100 FOR X=40 TO 215 
110 LET b =999 ; LET t =0 
120 FOR y =16 Tù 14.4. 5TEP 4. 

180 LET r=SQR iix-127)*(x-127)+ 
(y-80) * (y -80) ) /15 
14.0 LET Z=INT <y+90*EXP (-f/3)* 

CCS r ) 

150 IF Z <: b OR Z > t THEN PLOT x . Z 
160 IF Z < b THEN LET b=Z 
170 IF Z)t THEN LET t =Z 
180 NEXT y 
190 NEXT x 


100-190 Loop di x attraverso tutti i punti da 40 a 215. 

110 “b” e “t” eliminano le linee "nascoste” portandole fuori dal 

tracciato. 

120-180 Loop di y attraverso i multipli di 4 da 16 a 144. 

130-140 Calcolo dell'altezza alla quale disegnare il punto. 

150 Disegna il punto se non è “nascosto”. 

160-170 Aggiorna “b” e “t” e plotta il punto più alto e quello più bas¬ 
so. 
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CAPSULE SPAZIALI 


Lo statement DRAW x,y offre la possibilità di tracciare una linea retta 
tra due punti qualsiasi dello schermo. La linea parte dal punto plottato 
in precedenza a quello calcolato dai due valori che seguono DRAW. I 
due numeri non sono però le coordinate x e y del punto d’arrivo della li¬ 
nea, bensì le distanze orizzontale e verticale del nuovo punto nei con¬ 
fronti del primo. Ad esempio DRAW 10,10 traccia dal punto di partenza 
una linea retta con inclinazione di 45 gradi terminante nel punto sposta¬ 
to di 10 sulla destra e di 10 in alto. 

Tutto questo può sembrare, all’inizio, un po’ strano, ma sicuramente 
avvantaggia la routine che, usando esclusivamente statement di 
DRAW, disegna una certa sagoma duplicandola. 

Il programma che segue capita giusto a puntino e riproduce sullo 
schermo il medesimo disegno di ben 32 capsule spaziali. Provate voi a 
far meglio! 


100 FOR v =15 TO 135 STEP 4-0 
110 FOR h=25 TO 235 STEP 30 
120 PLOT INVERSE l; OVER l;h,V 
130 RESTORE 
140 READ rii , x , y 

150 IF ni =0 THEN DRRW INVERSE l; 
OVER 1. x , y 

160 IF ni = 1 THEN DRRW X.y 
170 IF ni OS THEN 00 TO ' 140 
130 NEXT h 
190 NEXT V 

1000 DRTR 0,-12,7,1.,24,0,1,0,-14 

,1,-24,0,1,0,14 

1010 DRTR 1.12,3,1,12,-8 

1020 DRTR 0, -7,-Ì4; 1,3,-8,1, -16, 

0,1,3,S,9,0,0 


100-110 Con le linee 180 e 190 stabiliscono le coordinate del centro 
di ognuno dei 32 disegni. 

120 Sposta la posizione da cui iniziare a disegnare dal centro di 

un disegno all’altro, senza lasciare tracce sullo schermo. 

140 Riposiziona il “data pointer” alla prima voce dati del pro¬ 

gramma, in questo caso alla linea 1000. 

140-170 Disegna la capsula. 
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Gli elementi DATA (dalla linea 1000 in poi) sono organizzati in gruppi 
di tre numeri dei quali il secondo e il terzo vengono usati dagli state¬ 
ment DRAW alle linee 150 e 160. Il primo numero di ogni gruppo, deci¬ 
de invece come agire: se è 0, la linea 150 sposta la posizione di plot 
senza lasciare traccia, se invece è 1, la linea 160 disegna la retta. 


QUADRI D’AUTORE 



Essendo disponibile solamente un numero limitato di pixel, le linee 
rette tracciate in diagonale, appaiono leggermente frastagliate. Tale 
imperfezione non comporta alcuno svantaggio, anzi, in molti casi, ab¬ 
bellisce i disegni, come vediamo dal programma che segue, il quale 
presenta un centinaio di bei quadri in sequenza casuale. 

Il risultato viene in parte esaltato dai piccoli difetti propri del ricevito¬ 
re TV. Per prima cosa i TV tendono a confondere i piccoli dettagli pre¬ 
sentando, ad esempio, come grigie le linee bianche e nere alternate in 
rapida successione. In secondo luogo, pur disegnando il programma e- 
sclusivamente in bianco e nero, la figura apparirà contornata da chiaz¬ 
ze di colori baluginanti. In virtù di questi effetti, l’esempio che risulta qui 
stampato è molto meno attraente di quello che si può ammirare dal vi¬ 
vo. 
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10 RRNDOMIZE 
100 FQR P=1 TG 100 
110 LET ì =S + INT C3*RND) 
120 LET 0=INT (2*RND) 


130 

FOR X =255 TG 0 

STEP 

-i 

140 

PLOT X , 0 : DRRLI 

OUER 

O , 255-2 

*X , 1 

7 Fi 


150 

' NEXT X 



160 

FOR y=0 TG 175 

STEP 

S 

170 

75-3 

PLOT 0 y : DRRU 

OUER 

O,255,1 


1S0 NEXT y 
190 NEXT p 


100-190 Loop per contare 100 quadri. 

110 Sceglie s, come passo per le linee 130 e 180, per mezzo di 

un numero random tra 2 e 4. 

120 Sceglie c tra i valori random 0 e 1. “c” viene usato nelle li¬ 

nee 140 e 170 per far loro tracciare due linee nere (c=0) 
oppure linee inverse da quelle già disegnate sullo schermo 
(c=1). 

130-150 Disegna metà quadro. 

160-180 Disegna l’altra metà. 
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ESAGONI 


Usando la capacità del computer di ripetere più volte una forma base 
in dimensioni sempre più ridotte, potete realizzare disegni veramente 
piacevoli e originali. Il programma sotto riportato disegna un gruppo di 
triangoli, uno successivo all'altro, con dimensioni sempre minori. Il ci¬ 
clo viene ripetuto sei volte fino a formare un esagono. Potete variare i 
grafici tralasciando la linea 150 oppure modificando la 140 come se¬ 
gue: 

148 DRflW INVERSE 1; OVER li - 

che sposta la posizione di plot alla partenza delia linea successiva, sen¬ 
za tracciarla. (OVER e INVERSE saranno trattati in dettaglio nel prossi¬ 
mo capitolo). 



100 FOR à=0 TG l.?*PI STEP PI/3 
110 LET X =127 : LET y=88 : LET l = 
100 

120 FOR d — a TG a + 1 wTEP • 1 
130 PLOT X . <J : DRRU l *CGS d , 1*51 
N d 

140 DRRU l*5IN (PI/6-d) - l *COS d 
, l*COS (PI/6-d) -L *SIN d 
150 DRRU -i.*SIN (PI/6-d) ,-1*C0S 
y PI / 6 - d > 

160 LET x =x + .1* L*CGS d: LET y= y 
+ .1*1. *3 IN d: LET l=.S5*l 
170 NEXT d 
180 NEXT a 
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100-180 Loop per disegnare sei gruppi di triangoli. 

110 Predisposizione delle condizioni di partenza di ogni gruppo. 

120-170 Loop per disegnare i 10 triangoli componenti ogni gruppo. 
130-150 Disegna un triangolo. 

160 Predispone il punto di partenza e le dimensioni di ogni trian¬ 

golo. 
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RECINTO 


Aggiungendo un terzo valore al comando DRAW 


DRRW x,y,* 


è possibile fargli disegnare una parte di cerchio. Ve lo dimostra la routi¬ 
ne che segue. 


p ljj^ FGR a=-1.5*PI TO 1.5 *P I S 

110' PLOT 127,53 r 

120 DRRW 0,58. a S 

130 NEXT a \ 


Generalmente parte di questa routine viene utilizzata per comporre 
forme complesse, ma, come dimostrazione, eccovi un gioco semplicis¬ 
simo: il suo scopo è quello di catturare il maggior numero di "uova spa¬ 
ziali” rinchiudendole in un recinto a forma di bolla, di cui potete control¬ 
lare la dimensione. Le uova toccate dalla linea di recinzione si rompono 
e non sono valide. 


100 >OR a =1 TD 15: PRINT RT 15* 
RND,30*RNDj" 0 " NEXT a 
110 PLOT S0.10: DRRU 0.-10: DRh 
U 85,0: DRRU 0,10 
200 input "inserire La grandezz 
a de ua bo u.a i 1-9) " ; s 
210 IF S<1 OR S >9 THEN GO TO 20 

0 

220 PLOT 80.10: DRRU OVER 1:85. 
0, - (4..35+S/10) 

3©0 PRINT RT 19,12;"Ancora ?" 
310 IF INKEY$="y" THEN RUN 
320 IF INKEY $ < >"n" THEN GO TO 3 
10 


100-110 Disegna le 15 uova spaziali in posizioni casuali e la base di 
lancio. 

200-220 Accetta la dimensione del recinto, ne testa la validità e lo 
disegna. La funzione OVER 1 rivela quando il contorno toc¬ 
ca un uovo. 

300-320 Attesa per l’inizio di un altro tentativo. 
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CARATTERI PERSONALIZZATI 


Se non siete soddisfatti dei caratteri e dei simboli grafici in dotazione 
allo Spectrum, potete aggiungerne altri di vostro gradimento. Questa 
prerogativa è oltremodo utile, non solo per ottenere caratteri insoliti (ad 
esempio lettere giapponesi), ma anche per introdurre nuove forme. Nel 
programma “Space Invadere”, per esempio, è necessario disegnare 
caratteri speciali che rendano l’idea di un alieno: caratteri da presenta¬ 
re sullo schermo per mezzo di PRINT, alla stregua di qualsiasi altra let¬ 
tera. Se sono necessarie forme più larghe di un carattere, potete dise¬ 
gnare due o più grafici speciali che poi uniti daranno l’effetto desidera¬ 
to. 

Come già spiegato, ogni carattere è formato da un array di 8x8 pixel 
ognuno dei quali può assumere il colore nero o bianco. Più in particola¬ 
re, ogni pixel è rappresentato da un singolo bit (binary digit) che ha va¬ 
lore 0 se il pixel è bianco e valore 1 se è nero (vedremo i colori nel 
prossimo capitolo). 

Il carattere completo è messo a disposizione da 8 byte di 8 bit ognu¬ 
no. La lettera “A” viene scritta: 


Byte 1 ; 

00000000 

2 j 

00111100 

3 ; 

01000010 

4 j 

01000010 

5 ; 

01111110 

6 ; 

01000010 

7 ; 

01000010 

8 

00000000 

e voi potete inserire allo stesso modo nell’array un simbolo di vostra in 


venzione. 

Ogni carattere possiede un numero di codice che lo Spectrum può 
prelevare ed inserire nei suoi calcoli. L’Appendice A del manuale BA¬ 
SIC elenca tutti i 256 codici a disposizione. Tenete presente che alcuni 
di questi codici (0-5 e 24-31 ) non vengono usati, altri (6-23) sono codi¬ 
ci di controllo, altri ancora (165-255) rappresentano le parole-funzione. 
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Quelli che a noi interessano sono compresi entro la gamma 144-164 e 
sono conosciuti come “Grafici Utente A-U". 

Raggiungiamo il primo di questi tramite il comando 

PRINT CHR* 144 

PRINT "shift/graphics fl graphics" 

che vi presenterà la lettera maiuscola “A”. 

Tornando al fatto che i caratteri sono rappresentati da una serie di 8 
byte, è possibile l’inserzione di caratteri anomali. Lo Spectrum preser¬ 
va, a tale scopo, 21x8=168 bytes situati nella parte superiore della 
RAM che automaticamente vengono raggiunti per soddisfare tale esi¬ 
genza. La funzione che permette un simile risultato è la USR. USR “n” 
rende l’indirizzo del primo byte dell’area RAM in corrispondenza del 
quale viene sistemato “n” il quale può essere inserito come lettera 
maiuscola, minuscola o come carattere grafico. 

Per aiutarvi ad inserire il nuovo carattere, il computer mette a dispo¬ 
sizione la funzione BIN la quale deve essere seguita da un numero bi¬ 
nario formato da "1”e “0” e dà l’equivalente valore decimale. Se volete 
fare un esperimento togliete l'alimentazione per qualche secondo al vo¬ 
stro Spectrum, dopodiché battete e fate girare quanto segue: 

10 PRINT CHR* 144- 

£0 PÙKE USR • , a",BIN 10000001 

30 PRINT CHR* 144 

La seconda lettera “A” presentata avrà le “orecchie” per effetto del¬ 
la linea 20 la quale aggiunge, infatti, due punti neri agli estremi della li¬ 
nea superiore dei pixel che compongono la lettera “A”, il cui codice è 
appunto 144. A questo punto non vi rimane altro da fare che POKare un 
altro valore oppure spegnere il computer. 

Visto che il binario 10000001 corrisponde al decimale 129, come di¬ 
mostrato dal comando diretto 

PRINT BIN 10000001 
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la linea 20 può essere scritta nel modo seguente: 

20 POKE USR M * , M29 

Naturalmente per definire completamente un nuovo carattere, è ne¬ 
cessario POKare tutte e otto le locazioni di memoria in funzione del ca¬ 
rattere stesso. La dimostrazione nel prossimo programma. 


ALLUNAGGIO 

Carburante 71 
u-vel 59 
U-pos 389 
H-vel 41 
H-P0S^87 ^ 

Nessun libro di programmi per computer è completo se non riporta 
l’allunaggio, che offre l’opportunità di mostrare le capacità grafiche del¬ 
la macchina. 

Lo scopo del gioco è quello di far scendere il vostro veicolo lunare su 
un tratto di superficie piana. 

Quando inizia il gioco, voi siete a 2100 metri di altezza, vi state muo¬ 
vendo orizzontalmente a 30 metri al secondo ed iniziate ia discesa. Il 
vostro computer di bordo è di nuovo guasto, per cui siete costretti ad 
atterrare manualmente con i motori propulsori funzionanti solo in modo 
binario: on e off. 

I vostri controlli sono i tasti 5,7,8 che azionano i propulsori rispettiva¬ 
mente a sinistra, sopra e a destra, ma che vanno azionati uno alla vol¬ 
ta! Dovrete toccare la superficie lunare con velocità orizzontale e verti¬ 
cale, nonché con posizione orizzontale il più vicino possibile allo zero. 
Buona fortuna e occhio al carburante. 



5 LIST 

10 RANDOMIZE 

20 LET f=100: LET W=0: LET VP 
=2100 : LET h V =30 : LET hp =2300 
100 POKE USR "a", BIN 00011000 
110 POKE USR " à " + 1 , BIN 00111100 
120 POKE USR ”a"+2,BIN 01100110 
130 POKE USR "a"+3,BIN 10111101 
140 POKE USR ,, a"+4,6IN 11111111 
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150 POKE USR "a“+5,BIN 10011001 
160 POKE USR ,, a"+6,BIN 10000001 
170 POKE USR "a"+7,0 
200 LET y=0 : PLOT 0,0 
210 FOR a =0 TO 250 STEP 5 
220 IF a=180 THEN DRRU 0,-y: DR 
RU 15,0: DRRU 0,y: LET a=195 
230 LET dy =5-INT C11*RND>: IF y 
+ dy <0 OR y +dy >7 THEN GO TO 23© 
24.0 DRRU 5 , dy : LET y=y+dy 
250 NEXT a 

300 PRINT RT 16,0;"Carburante 

• • • ^ i • ^ 11 

310 PRINT "U-ve l "; v v ;"88.U-P 

os ";vp;"88" 

320 PRINT "H-VSl ";hv;“88.M-p 

os ";hp;"88" 

330 PRINT OUER 1;RT 21-vp/100,2 
3-hp/100;CHR* 144;CHR* S; 

340 IF VP =0 OR (vp<50 RND RBS ( 
hp -2300) >49) THEN GO TO 500 
350 IF hp =-800 THEN GO TO 600 
360 FOR a =1 TO 50: NEXT a 
400 LET k*=INKEY$: IF f=0 THEN 
LET K*="" 

410 IF k$="5" OR k $ = "7" OR k* = " 
8" THEN LET f = f-l 
420 LET vpsvp-vv: IF vp<0 THEN 
LET Vp =0 

430 LET VVaVV+1: IF k*="7" THEN 
LET Wsvv-2 

440 LET hp=hp-hv: IF hp<-800 TH 
EN LET hP=-800 

450 IF k*="3" THEN LET hv=hv+l 
460 IF k*="5" THEN LET hv=hv-l 
470 PRINT "8": GO TO 300 
500 PRINT RT 0 , 0 ;"Sei giu", "■ 
510 IF vv>10 OR RBS hv >10 THEN 
PRINT "Ma sei morto !": STOP 
520 IF vv >5 OR RBS hv>5 THEN PR 
INT "-perfetto-” 

530 IF RBS hp >49 THEN PRINT "Ma 
nel posto sbagliato." 

540 IF vv <5 RND RBS hv<5 RND RB 
S hp <50 THEN PRINT "ben arrivato 
sig.Rossi" 

550 STOP 

600 PRINT RT 0,0;"Sei fuori dai 
mondo !" 


10-20 Predisposizione dei valori iniziali. 

100-170 Trasforma la lettera "A” nel modulo lunare. 

200-250 Disegna la superficie lunare in modo random all’infuori del 
tratto pianeggiante disegnato dalla linea 220. 
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300-470 

300-320 

330 


340 

350 

360 

400 

410-460 

470 

500-550 

600 


Loop principale del programma. 

Aggiornamento della velocità, della quantità del carburante 
ecc. 

Disegna il modulo lunare nella posizione appropriata. L’o¬ 
pzione OVER 1 permette di non far sparire la superficie lu¬ 
nare quando voi vi atterrate sopra. Notate CHR$ 8, muove 
all’indietro la posizione di scrittura, dopo aver disegnato il 
modulo. 

Lascia il loop principale se avete atterrato. 

Lascia il loop principale se il modulo è uscito dallo schermo. 
Tempo generato dal loop per rallentare la discesa entro li¬ 
miti ragionevoli. Non può essere usato PAUSE. 

Cerca il tasto premuto. Lo ignora se è finito il carburante. 
Calcola la nuova velocità e le nuove posizioni, tenendo con¬ 
to degli azionamenti dei tasti 5,7 o 8. 

Cancella l'ultima immagine dei modulo sovrapponendo uno 
spazio, quindi torna alla partenza del loop principale. 
Stampa i commenti rituali dopo aver atterrato. 

Fine del programma se siete usciti dall’area dello schermo. 


Nota: rispettate gli spazi tra gli apici alle linee 300,310,320,470. 
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CAMBIAMENTO COMPLETO 


Volete sapere come fare per ridefinire tutti i caratteri alfanumerici 
dello Spectrum (codici da 32 a 127)? 

Come già visto nel quinto capitolo, la Variabile di Sistema CHARS 
(23606,23607) contiene un numero 256 volte inferiore all’indirizzo 
ROM di partenza del set dei punti riguardanti i caratteri standard. Tale 
Variabile viene posta a 15360 all'accensione dello Spectrum oppure al 
comando di NEW. 

Cambiando il valore sopra citato, lo Spectrum andrà a pescare la se¬ 
rie di punti nella locazione di memoria specificata. Accertatevene bat¬ 
tendo il comando giretto. 

POKE 23606,8 


Vedrete che battendo “A”, viene scritto “B”, battendo “B” viene 
scritto “C” e cosi via. Non avete fatto altro che spostare il valore di 
CHARS di 8 byte equivalenti appunto ad un carattere. 

È possibile usare questa proprietà facendo puntare CHARS in un'a¬ 
rea RAM ove POKare i propri caratteri. 

Dando un’occhiata alla mappa di memoria dello Spectrum, troviamo 
che i primi 168 byte sono riservati appunto alle creazioni grafiche da 
parte dell’utente, ma per poterli utilizzare, è necessario abbassare il li¬ 
mite superiore della RAM (RAMTOP) per mezzo di uno statement 
CLEAR. 


Vediamo il programma. 


100 CLERR 32767-768-168-1 
110 LET U=32767-768-168 
120 FOR a=0 Tu 767: POKE <U+a) , 
PEEK (15616+a): NEXT a 
130 LET v=0-256: POKE 23606,v-2 
56*INT (V/256): POKE 23607,INT ( 
v /'d 56) 

140 LET X =V+8 *CODE "R" 

150 POKE X, 0 : POKE X+1,62 
160 POKE X+2,66: POKE X+3,66 
170 POKE X+4.,62: POKE X+5,34- 
180 POKE X+6.66 : POKE X+7,0 
190 PRINT " UàSR" 

200 POKE 23606,0: POKE 23607,60 
210 PRINT "USSR" 
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100 Prenota uno spazio in RAM di 768 byte per i caratteri. 

110-120 Copia la vecchia serie della ROM. (Impiega circa 15 sec) 
130 Aggiorna CHARS. 

140-180 Cambia la forma per “R”. 

190 Dimostrazione. 

200-210 Ridispone la ROM come in partenza. 
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CAPITOLO 10 

SUONI E COLORI 


Un uso intelligente delle capacità sonore e cromatiche dello Spe- 
ctrum, affina sicuramente la qualità dei giochi e può aiutare enorme¬ 
mente l’operatore, attirandone l'attenzione su informazioni particolar¬ 
mente importanti in programmi applicativi. 

L'impiego del comando BEEP non comporta alcuna difficoltà. Lo si 
batte da tastiera (tasto Z) facendolo seguire da due numeri, il primo dei 
quali stabilisce la lunghezza della nota e il secondo il tono. Esercitatevi 
facendo girare le seguenti routine. 

FOR *»0 TO 30 : BEEP .01,a : NEXT a 

FOR a-0 TO 5: FOR b«*12 TO 4 STEP -8: BEEP .5,b: 

NEXT b: NEXT a 

FOR TO 40 : BEEP : NEXT a 

L’unico piccolo inconveniente sta nel fatto che l’uso di BEEP non è 
possibile in contemporanea con altre funzioni, infatti quando lo Spe- 
ctrum lo esegue, si disabilita verso il resto del programma. Tale fatto lo 
potete notare dallo svolgimento di una gara che preveda immagini in 
movimento: durante il periodo in cui viene emesso il suono le figure si 
bloccano, per poi riprendere la loro corsa al termine del messaggio mu¬ 
sicale. 
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UNA TASTIERA SONORA 


Questo programma vi permette di suonare musica usando le prime 
due righe della tastiera dello Spectrum, come se fossero i tasti bianchi 
e neri di un pianoforte. 


1 


3 

4 


6 

7 

8 



0 

A# 


C# 

D* 


F# 

G# 

A# 


C# 


Q 

B 


W 

c 


E 

0 


R 

E 


T 

F 


Y 

G 


U 

A 


0 

c 


p 

0 


Naturalmente i tasti andranno premuti uno alla volta. Azionandoli as¬ 
sieme al tasto SHIFT, le note della scala musicala verranno alzate di 
una ottava. La durata di ogni nota viene fissata a 0.2 secondi dalla linea 
200, ma tale valore può essere abbassato fino a 0.02 per ottenere effet¬ 
ti particolari; provate. Nello scrivere un programma del genere, l’unico 
problema serio sta nel trasformare il codice ottenuto dalla pressione 
del tasto in un valore appropriato da porre nello statement di BEEP. Il 
programma deve, inoltre, risultare insensibile ad azionamenti acciden¬ 
tali. La soluzione si ottiene predisponendo un array con elementi suffi¬ 
cienti a rappresentare tutti i codici, compreso lo 0, che vengono via via 
generati dallo statement INKEY$. A ciascun elemento dell'array viene 
affidato un particolare valore di frequenza oppure, nel caso questo sia 
un codice anomalo, un numero speciale che il programma possa facil¬ 
mente riconoscere. 


100 DIli P i 123) : FOR a=l TD 123: 
LET pia)=-99: NEXT à 
110 FOR n=-2 TO 14: READ K: LET 
P U +1) =n: NEXT n 

120 FOR n =10 TO 26; READ li: LET 
p ( K. +1) =n : NEXT n 
200 LET n=pil+CODE INKEY*): XF 
n>-60 THEN BEEP . 2,n 
210 GO TO 200 

900 DATA 49., 113,119.51,101,52,1 
14,116,54 121.. 55,11?.. 56 105,111, 
43,112 

910 DATA 7,81.37,4,69,5,82,34,1 
0,39,11,85,9,73,79,12,80 
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100 Predispone l’array con tutti gli elementi. 

110 Inserisce nell’array i valori di frequenza corrispondenti al¬ 

l'ottava inferiore. I valori sono interi da 2 a 14. 

120 Inserisce nell’array i valori di frequenza corrispondenti al¬ 

l’ottava superiore (10-26). 

200 Suona la nota se il tasto premuto è considerato valido. 

210 Ritorno per il tono successivo. 

910 Codici validi per l’ottava superiore. 


SEQUENZA 

In questa divertente sfida, lo Spectrum genera una sequenza random 
di note che voi dovrete ripetere senza commettere errori. Potete sce¬ 
gliere tra cinque livelli di difficoltà, ricordandovi che selezionando il più 
alto, il computer emette un maggior numero di note. Ogni partita preve¬ 
de dieci tentativi, ognuno dei quali ha una sequenza di note più lunga di 
quella precedente. Il punteggio viene presentato solo a gara terminata. 


10 RRNDOMIZE : DIM P<10): DIM 
100 PRINT RT 7,6;"RbiLita" <1-5 

j 

110 INPUT S: IF S(1 OR S>5 THEN 
GO TO 110 

120 PRINT RT 6,19;S: LET S =S+3 
130 PRINT RT 10,0;"Questo progr 
aroma usa ";s;" note . " 

140 PRUSE 20: PRINT ""Esse sono 
numerate;" „„„ 

150 FOR nsl TO S; PRUSE 20: PRI 
NT RT 12,20;n: BEEP 1,n: NEXT n 
200 LET C =0 

210 FOR g=l TO 10: PRUSE 100: C 
LS : PRINT RT 5,12;"Uai ";g 
220 FOR n*l TO g _ . 

230 PRUSE 20: LET p<n)=l+INT IS 
*RND) : BEEP 2/S ,P Cn) 

240 NEXT n 

300 PRINT RT 10,8;"Ripeti quest 

a ! " 

310 FOR n=l TO g __ ,,, 

320 LET K =C0DE INKEY$-CODE "0": 
IF H<1 OR K >8 THEN GO TO 320 
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330 BEEP . 5 , K. : IF Kop(n) THEN 
GO TO 360 

34.0 NEXT n: PRINT RT 13,10; "Ben 
fa t to" 

350 GO TO 4.00 

360 PRINT RT 13,12; FLRSH 1;"ER 
RATO": BEEP 1,-30 
370 PAUSE 50: PRINT RT 15,8;"Er 
a la nota ";p(n): BEEP l,p(n) 

400 IF n>l THEN LET c=c+n+g 
410 FOR a=l TO 200: NEXT a 
420 NEXT g 

500 IF 099 THEN PRINT RT 8,10; 
"Ecce i lente" 

520 PRINT RT 14,7;"Altra prova 

530 INPUT LINE i*: IF i*="n" TH 
EN STOP 

540 IF i$ < >"y" THEN GO TO 530 
550 PRINT RT 14,8;"Stessa abili 

ta' ?" 

560 INPUT LINE it: IF i*="n" TH 
EN RUN 



10 

100-120 

130-150 

200 

210-420 

220-240 

300 

310-340 

320 

330 

350 

360-370 


Inizializzazione. 

Inserzione del livello di difficoltà da parte del giocatore. 
Mostra il numero delle note usate. 

Partenza; mette il punteggio a zero. 

Loop principale eseguito ad ogni tentativo. 

Suona una sequenza random di note e le inserisce nell’ar- 
ray p( ). 

Legge la risposta dell’operatore. 

Loop per stabilire l’esatto numero di note. 

Testa la validità del tasto premuto. 

Suona la nota scelta dall’operatore. Se la scelta è errata, in¬ 
terrompe il loop saltando alla linea 360. 

Manda alla linea 400 se tutte le note sono state introdotte 
nella giusta sequenza. 

Comunica al giocatore che ha sbagliato e la nota che ha 
battuto. 
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400-420 Aggiorna il punteggio. Attende un attimo (loop FOR NEXT 
alla linea 410; PAUSE è inadeguato), quindi torna per il ten¬ 
tativo seguente. 

500-510 Scrive il punteggio e commenta. 

520-580 Invita l’operatore a giocare nuovamente. 


ATTRIBUTI DEL VIDEO 

Allo stesso modo in cui è possibile scrivere caratteri o disegnare for¬ 
me sullo schermo, è anche possibile controllarne il colore e la lumino¬ 
sità; perfino facendone lampeggiare diverse sezioni. Questo insieme di 
funzioni è conosciuto sotto il nome di “Attributi” video. LoSpectrum ne 
ha in tutto quattro; sono: 

PAPER. È questo il colore usato per lo sfondo. Prende il colore nero 
all’accensione del computer e al comando NEW. I colori possibili sono 
quelli riportati sulla tastiera in corrispondenza dei tasti numerati da 0 a 
7. 

INK. È il colore usato dal carattere o dal disegno. Prende il colore 
bianco all’accensione e al comando NEW. Come per PAPER, gli otto 
colori possibili sono quelli dei tasti 0-7. 

BRIGHT. Lo Spectrum può fare assumere allo schermo TV, due livel¬ 
li di luminosità. 

BRIGHT 0 : luminosità normale. 

BRIGHT 1 : luminosità accentuata. 

FLASH. É possibile evidenziare parte dello schermo facendola lam¬ 
peggiare con l’inversione continua dei due colori INK e PAPER. 

FLASH 0 : condizioni normali. 

FLASH 1 : lampeggio. 

I quattro attributi operano su tutto il carattere, controllano cioè le ca¬ 
ratteristiche di ognuna delle 24x32 posizioni possibili dei caratteri sullo 
schermo, e non i singoli pixel che compongono il carattere; pertanto l’in¬ 
tero array di 8x8 pixel che forma il carattere possiede i medesimi attri- 
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buti di INK o PAPER, che possono invece essere diversi nella cella a- 
diacente. 

I 768 set di attributi per le 32x24 celle di carattere sono collocati nel¬ 
l’area RAM loro riservata che li distingue per mezzo di 768 byte, uno 
per ogni cella. I bit 0-2 di ciascun byte controllano il colore INK, i bit 
3-5 il colore di PAPER, il 6 controlla il BRIGHI e il 7 il FLASH. Il valore 
dei byte interessati viene richiamato dalla funzione ATTR. 


Attributi Permanenti 

Le parole funzione PAPER, INK, BRIGHI e FLASH, possono trovare 
posto in statement differenti: 

10 PAPER 7 
20 BRIGHI 0 

Sotto questa forma agiscono nel momento in cui lo Spectrum esegue 
gli statement e così restano fino a quando non sopraggiungano state¬ 
ment successivi che li modifichino. Provate ad inserire: 

PAPER 3 : INK 4 : F'RINT "ABCD" 

e vedrete comparire la scritta “ABCD” in verde su di uno sfondo rosso. 
Se ora ordinate allo Spectrum di scrivere ancora, ad esempio con 

PRINT "CIAO" 

la scritta e lo sfondo rimarranno dello stesso colore dei precedenti. 
Cambiando invece i colori di PAPER e INK non cambia quello delle 
scritte stampate in precedenza e delle due linee poste nella parte bassa 
dello schermo dedicate all’input e ai commenti. 

Provate inserendo 

PAPER 0 : INK 7 : PRINT "COLORI" 

BRIGHI e FLASH vengono usati alla stessa maniera; 

BRIGHI 1 : PRINT "BRIGHI" 

FLASH 1 : PRINT "FLASH" 
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Gli attributi selezionati in tale maniera, vale a dire in statement che 
abbiano INK, PAPER, BRIGHT o FLASH come prima parola, vengono 
chiamati attributi “Permanenti”. Per variare gii attributi di tutte e 22 le 
linee contemporaneamente devono essere impiegati in combinazione 
con CLS. Battete: 

BRIGHT 1 : CLS oppure 

PAPER 3 CLS oppure 

FLASH 3 : CLS 

La routine che segue dimostra come, anche usando comandi di 
HRG, gli attributi non possano agire aH’interno della cella. Vengono di¬ 
segnate due linee rette che si intersecano tra di loro di colore diverso di 
cui la seconda modifica, nel punto d’incrocio, il colore della prima. 

10 INK 2 : PLOT 0,20 ! DRAW 255,30 
20 INK 5 : PLOT 0,50 : DRAW 255,-30 


Border 

Ed eccoci giunti alla parola-funzione BORDER (tasto B). Lo state¬ 
ment 

BORDER n 

dove “n”, che rappresenta uno dei colori associati ai numeri 0-7, stabi¬ 
lisce il colore del bordo, cioè della parte dello schermo esterna all’area 
display governata da PAPER. Influisce anche sulle due linee riservate 
agli input e ai commenti, ma solamente quando lo Spectrum scrive un 
messaggio o esegue uno statement di INPUT. Accertatevene battendo: 

i% SbuIPsI 

30 INPUT "Premi ENTER"; a$ 

4.0 FOR a si TO 200: NEXT a 
50 BORDER 7 

e riprovate eliminando la linea 30. 
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Attributi Temporanei 

Potete anche includere le parole-funzione PAPER, INK, BRIGHI e 
FLASH entro statement di PRINT, PLOT, DRAW o CIRCLE. 

PRINT INK 3;"Hi" 

In questi casi l’effetto è limitato a quel particolare statement e quan¬ 
to scritto o disegnato su statement seguenti ricade sotto gli attributi 
permanenti. Inserite: 

10 FLASH 0 

20 PRINT FLASH 1;"FLASH" 

30 PRINT "NO FLASH" 


CAMBRIDGE TARTAN 

È un programma assai semplice che mostra un attraente display i- 
doneo, tra l’altro, alla messa a punto dei controlli del vostro TV. Distin¬ 
guerete sicuramente la differenza tra i due livelli di luminosità di ogni 
colore. 


10 FOR p=l TO 7 
20 FOR b s 0 TO 1 
30 PRINT BRIGHT b; 

40 NEXT b 
50 NEXT p 
60 00 TO 10 


PAPER p; 


Colori 8 e 9 

A INK e PAPER possono essere attribuiti i colori 8 e 9. In tal caso lo 
Spectrum prende determinate decisioni sui colori da usare per la scrit¬ 
tura o per il disegno. Più precisamente: 


118 



‘8’ mette a disposizione un colore ‘trasparente’ comunicando allo Spe- 
catrum di non apportare alcuna variazione ai colori scelti in preceden¬ 
za; 

‘9’ stabilisce il contrasto. Il computer sceglie automaticamente il colore 
adeguato per meglio contrastare con le scritte o con lo sfondo già esi¬ 
stenti. Quando sia a INK che a PAPER viene attribuito il valore 9, si ot¬ 
tengono scritte in nero su sfondo bianco. 

Anche BRIGHI e FLASH possono accettare il valore 8 lasciando i- 
nalterati i due attributi relativi. Provate: 


10 PRINT BRIGHI 1 
20 PRINT FLASH 1; 
30 PRINT RT 0,0j 
4.0 PRINT FLASH 8; 


BRIGHT 

"CD" 


8;"AB" 


Ricordatevi di inserire lo spazio tra gli apici alle linee 10 e 20. 


CALEIDOSCOPIO 

Il programma che segue gira per circa dieci minuti, mostrando una 
sequenza di piacevoli combinazioni sempre più complesse. 


100 FOR C=S0 IO 1 STEP -1 

110 FOR a=0 TG 11 

120 FOR b=a TG 19 

130 LET d = INT (a *b/'C + (a + b) /C +C ) 

: PAPER d - 9*INT (d/9) 

14.0 PRINT AT a,b;“ " ; AT a.31-b; 
" it " ; AT 21-a,b;" " ; AT 21-a.31-b;“ 

1S0 PRINT AT b, a ;" ";AT b,31-a; 
" m " ; AT 2i-b,a.;" ";AT 2i-b,3i-a;" 

160 NEXT b 
170 NEXT a 
180 NEXT C 


Anche qui rammentatevi gli spazi alle linee 140 e 150. 
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Disegni 

Una istruzione PRINT usa sempre gli ultimi valori in uso per gli attri¬ 
buti del carattere che visualizza, siano essi attributi permanenti stabiliti 
dalle istruzioni INK, PAPER, BRIGHI o FLASH, oppure attributi tempo¬ 
ranei stabiliti aH’interno della stessa istruzione PRINT. 

Le istruzioni in alta risoluzione PLOT, DRAW e CIRCLE, però, si com¬ 
portano in modo differente, perché modificano solo il colore dei pixel 
delle celle su cui scrivono, mentre gli altri attributi vengono alterati solo 
dall’uso delle istruzioni PAPER, BRIGHT o FLASH aH’interno delle istru¬ 
zioni PLOT, DRAW o CIRCLE. Fate girare, ad esempio, la routine: 

10 PRPER ?: INK 0: CLS 
20 PRPER 6: CIRCLE 100,100,50 

la quale traccia un cerchio nero in campo bianco. Lo statement PAPER 
6 presente alla linea 20 non ha alcun effetto. Ma se cambiamo la riga 
20: 


20 CIRCLE PAPER 6.; 100, 100,58 

le celle di carattere interessate dal cerchio assumeranno il colore gial¬ 
lo. 

Tutto ciò torna utile nel caso in cui voleste modificare velocemente il 
colore di una riga o di una colonna disegnandovi sopra una linea per 
mezzo di un DRAW comprendente un PAPER. 


QUADRATI VIVENTI 

Una dimostrazione pratica è offerta dal prossimo programma che di¬ 
segna una serie di quadratini concentrici di colore variabile. Vengono 
mantenuti gli stessi colori di INK e PAPER, ma, mentre INK è definito 
una volta per tutte (linea 110), i colori di PAPER vengono inclusi in ogni 
singolo statement di DRAW (linee 120 e 130). 
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, 50 BORDER 0; PRPER 0: CLS : LE 
T C =1 

X00 POR a =-8 TO 8 STEP 16 

110 FOR bs4.1-5*a TO 41+5*a STEP 

a: INK C 

120 PLOT 128 - b, 8? -b : DRRUI PRPER 
C , b + b , 0 : DRRUI PRPER C f 0) b^b 
130 DRRUI PRPER c,-b-b,0: DRRUI P 
RPER C , 0, - b - b 

14.0 LET C = C + 1 : IF C >7 THEN LET 
C =1 

150 NEXT b 
160 NEXT a 
170 GO TO 100 


50 Clear dello schermo. Predispone il valore iniziale e di “c”. 

100-160 Loop per alternare il disegno dei quadretti daH’interno all’e¬ 

sterno e viceversa. 

110-150 Loop per disegnare la sequenza dei quadrati concentrici. 
120-130 Disegna un quadrato col colore “c”. 

140 Cambia colore. 

170 Ripetizione della sequenza. 


OVER E INVERSE 

Le funzioni OVER e INVERSE sono simili agli attributi INK, PAPER, 
BRIGHT e FLASH, in quanto agiscono sulla scrittura o sul disegno. 
Possono essere usati come prima parola dello statement, nel caso deb¬ 
bano stabilire valori permanenti, oppure possono venire inseriti in state¬ 
ment di PRINT, DRAW, PLOT o CIRCLE per determinare valori tempo¬ 
ranei. Questi valori non trovano però posto nell’area di RAM destinata 
agli Attributi, bensì sono considerati istruzioni che lo Spectrum inter¬ 
preta per mezzo degli stessi comandi PRINT, PLOT, DRAW e CIRCLE. 

Le loro funzioni sono: 

OVER 0: Cancella il contenuto della cella di carattere (in scrittura) 

o il pixel (in disegno). 

OVER 1: Usato assieme a PLOT, DRAW o CIRCLE, scambia il co¬ 

lore di NK nel pixel, con quello di PAPER. Usato con 
PRINT, tutti i pixel di colore PAPER nel nuovo carattere 
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restano invariati, ma quelli che sono di colore ink nel 
nuovo carattere cambiano in: 


— INK se erano colore PAPER; 

— PAPER se erano colore INK. 

INVERSE 0: Scrive o disegna usando il colore di ink; è la condizione u- 
suale di lavoro. 

INVERSE 1: Scrive o disegna usando il colore di paper. 


Impiegato con PRINT, porta lo sfondo del carattere in colore ink fa¬ 
cendolo apparire in inverse video. 

Usando OVER 1 e INVERSE 1 insieme a PLOT, DRAW o CIRCLE, 
non si modifica lo schermo. 

Usando OVER 1 e INVERSE 1 assieme ai comando PRINT, ne risulta 
una combinazione dei vecchi caratteri con i nuovi per cui il risultato si 
presenta in inverse. 

Lo statement di PRI NT cambia sempre i colori di ink e paper delle 
celle, siano questi permanenti (dati da singoli statement di PAPER o 
INK) o temporanei (stabiliti da funzioni INK o PAPER comprese nello 
statement di PRINT). 

Potete sfruttare tale proprietà per cambiare i colori di paper e ink 
della cella senza influenzare il carattere quivi presente, per mezzo di: 

PRINT RT r, c; OVER 1; INK i; PRPER p;" » 

infatti battendo lo spazio con OVER 1 lasciate il carattere esattamente 
dove era. 

Tutto ciò vi permette di cambiare velocemente i colori di paper e di 
ink su tutta l’area dello schermo senza modificare le scritte fatte in pre¬ 
cedenza. 

DIN z*<22*32>: PRINT RT 0,0; OVER 1; INK i; 

PAPER p;z# 

(Il primo statement della linea genera la stringa z$ contenente tanti 
spazi quanti bastano per riempire lo schermo). Volendo alterare sola¬ 
mente il colore di ink, lasciando tale e quale quello di paper, è necessa¬ 
rio attribuire ai colore di paper il valore ‘8’ (trasparente). 
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Analogamente, la combinazione INVERSE 1 OVER 1, usata assieme 
a DRAW, PLOT e CIRCLE, modifica i colori ink e paper delle celle, sen¬ 
za influire sulla forma di quanto scritto o disegnato. Volendo cambiare il 
colore di paper, la funzione PAPER deve essere inserita entro uno dei 
comandi DRAW, PLOT o CIRCLE. 

Un esempio di tale tecnica, è dato dalla routine che segue; provate 


100 PfiPER ? : INK 0: INVERSE 0: 
OVER 0 : CLS 

110 FOR a =1 TO 22*32: PRINT "*" 
; : NEXT a 

120 INK 4. : INVERSE 1: OVER 1: P 
LOT 0,0: DRflU PRPER 2;255,175 


la quale riempie dapprima lo schermo di stelle nere su campo bianco, 
quindi le modifica lungo la linea diagonale, dipingendole in verde su 
campo rosso. 
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CARATTERI DI CONTROLLO 


Se andate a consultare l’Appendice A del manuale BASIC dello Spe- 
ctrum, troverete che i caratteri con codice da 6 a 23 corrispondono alle 
funzioni di scrittura AT, INVERSE ecc.. Sono questi caratteri che voi 
potete includere in stringhe da far elaborare poi allo Spectrum, È possi¬ 
bile concretizzare tali caratteri, usando la funzione CHR$ X la quale re¬ 
stituisce il singolo carattere dal codice X. Ad esempio le righe: 

LET= R*="1 m +CHR* 6 +"£“ 

LET R*="l 2": LET R*<2>»CHR* € 

scrivono una stringa il cui secondo carattere è una virgola. 

CLS: FRI NT FI* 

scriverà “1” all’inizio della prima linea dello schermo e “2” al centro 
come se fosse stato eseguito 

CLS: PRINT "rV‘2*' 

CHR$ 8 è molto utile in quanto sposta la posizione di scrittura indietro 
di un posto: 

CLS: PRINT "RB"+CHR* 8 +"CD" 

RCD 

dà ACD 

CHR$ 9-12, sfortunatamente non producono alcun risultato 
CHR$ 13 sposta la posizione di scrittura alla linea seguente. 

CHR$ 16 (INK) eCHR$17 (PAPER) possono essere seguite da un sin¬ 
golo carattere con un codice da 0 a 9 corrispondente ai rispettivi 
colori. Battete: 

l'0'FOR C=0 TO 9 , _ . 

S0 PRINT CHR* 16+CHR* C+" INK 

= " ; C 

30 _ PRINT CHR $ 17+CHR* C + "PPIPER 
AO^NEXT C 

Similmente anche i codici 18-21, corrispondenti a FLASH, BRIGHT, 
INVERSE e OVER, possono essere seguiti da caratteri singoli con codi- 
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ce 0, 1 oppure 8 (trasparente). Inserite 

PRINT "BUICT+CHR* 19 + CHR* 1 + "LUCE" 

CHR$ 22 (AT) deve essere seguita da due byte rappresentanti i numeri 
di linea e di colonna; 

PRINT CHR* 22 +CHR* 7 +CHR* 8 +"CIfiO" 

(è lo stesso di) PRINT RT 7, 8; "CIRO" 

CHR$ 23 (TAB) deve anch'essa essere seguita da due bytes; il primo 
rappresenta il numero di colonna, mentre il secondo viene ignorato ma 
è obbligatorio: 

PRINT CHR* 23 +CHR* 18 +CHR* 99 +" RRRI VEDERCI" 

(è equivalente a) PRINT TRB 18; "RRRIVEDERCI " 

Negli esempi fatti, per congiungere le singole voci è stato usato il se¬ 
gno “+”, che all’occorrenza può essere sostituito dal punto e virgola. 
Provate. 

PRINT CHR* 23; CHR* 18; CHR* 99;"RRRIVEDERCI" 

Gli Attributi controllati in questo modo sono temporanei e durano so¬ 
lamente fino alla fine dello statement di PRINT che li include. 

Tutto ciò può sembrare alquanto complicato, ma ricordatevi che in 
questo modo potete comporre delle stringhe contenenti dei codici che 
divengono attivi ogni volta che la stringa viene stampata. 
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COLORI DIRETTI 


È possibile il controllo diretto da tastiera dei colori senza usare i co¬ 
mandi PAPER, INK ecc. 

Se, inserendo una linea di programma, azionate assieme CAPS 
SHIFT e SIMBOL SHIFT, in modo che il cursore vada in E mode, potre¬ 
te, premendo uno dei tasti da 0 a 7, cambiare il colore di paper in uso in 
un altro a vostro piacimento. 

Richiamando il cursore in E mode, tenendo premuto CAPS SHIFT e 
azionando uno dei tasti colore (0-7), è possibile anche cambiare il co¬ 
lore di ink di tutto il testo seguente. E non è tutto! Inserendo il 9 al posto 
di 0-7, i caratteri seguenti verranno presentati con una luminosità su¬ 
periore oppure, azionando insieme CAPS SHIFT e 9, lampeggeranno. Il 
tasto 8 provoca il processo inverso, ristabilendo la luminosità normale e 
cancellando il lampeggio. 

Potrete ottenere tutti questi effetti anche inserendo i caratteri di con¬ 
trollo nel listato del programma, ed in particolare perché agiscano du¬ 
rante l'esecuzione devono essere presenti come stringhe di caratteri. 

I caratteri di controllo non sono visibili listando il programma, ma se 
evitate una riga che li contiene potete notare che il cursore sembra esi¬ 
tare quando vi passa sopra. 

Un'idea interessante: se stabilite un colore di ink uguale al colore di 
paper nel modo visto, potete nascondere parte del vostro programma 
da sguardi indiscreti; ricordatevi però che la parte "nascosta” ridiventa 
visibile se il programma viene listato su stampante. 


126 



CAPITOLO 11 

MOVIMENTO 



I giochi più divertenti sono sicuramente quelli ricchi di azione in cui 
le sagome si muovono rapidamente attraverso lo schermo. In questo 
capitolo vediamo come programmare lo Spectrum per conferire movi¬ 
mento agli oggetti. 

Va detto subito però che, con un programma scritto in BASIC, è im¬ 
possibile ottenere gli stessi effetti di un game tradizionale, a causa del¬ 
la lentezza del linguaggio. Malgrado ciò i programmi presentati in que¬ 
sto capitolo sono ugualmente divertenti poiché in molti di essi sono sta¬ 
te semplificate le forme, pur di mantenere una notevole velocità di mo¬ 
vimento. Se volete scrivere giochi complessi e veloci, dovete invece u- 
sare il Linguaggio Macchina o il Forth, che girano dieci volte più veloci 
del BASIC, ma che esulano dal contenuto di questo volume. 

La tecnica base per creare l’impressione di movimento è assai sem¬ 
plice: è sufficiente disegnare o scrivere ripetutamente un oggetto in po¬ 
sizioni dello schermo sempre diverse: 

FOR a«0 TO 255: RLOT A, 100: NEXT A 
FOR A*0 TO 31: PRINT FlT 0,a;“*": NEXT a 

Facendo girare queste due linee, non otterrete alcun oggetto in mo¬ 
vimento, bensì una linea che continua a crescere. Sebbene questo non 
sia l’effetto che volevamo ottenere, talvolta può risultare utile e infatti è 
alla base del gioco “Lumache". 
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LUMACHE 



Questa è una gara tra due giocatori, ognuno dei quali tenta di intrap¬ 
polare l'altro in una viscida traccia. 

Le due lumache avanzano progressivamente nei meandri del labirin¬ 
to, lasciandosi dietro tracce velenose. Se una delle due lumache tocca 
la scia o uno dei muri del labirinto, muore, e la partita è finita. Lo scopo 
del gioco è quindi quello di manovrare la propria lumaca in modo da in¬ 
trappolare quella avversaria, tenendo presente che sia Cuna che l’altra 
si muovono in continuazione, col pericolo di morire all’istante. 

La lumaca 1 parte dall’angolo in alto a sinistra dello schermo e i 
quattro tasti che la controllano sono W, A, S e Z rispettivamente per 
spostamenti in alto, a sinistra, a destra e in basso. 

La lumaca 2 parte dall'angolo in basso a destra ed è controllata dai 
tasti 0, K, L e SYMBOL SHIFT. 

il programma usa le variabili “a” e “b” per tenere aggiornata la posi¬ 
zione della lumaca 1 sullo schermo, e le variabili “c” e “d” per ricordar¬ 
si la direzione di movimento, “c" vale 1 se la lumaca si sposta verso de¬ 
stra, —1 se si sposta verso sinistra. 

Similmente, “d” è 1 se la lumaca si sposta verso l’alto, e —1 se lo 
spostamento avviene verso il basso. Poiché nessuna delle due lumache 
resta mai ferma, il programma non porterà mai a zero “c” e “d” con¬ 
temporaneamente. Il calcolo della posizione successiva, avviene ag¬ 
giungendo “c” ad “a” e ’’d” a “b”. 

In modo analogo le variabili u, v, w e x agiscono sulla lumaca 2. 
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Per disegnare l'ultima posizione della lumaca sullo schermo, viene u- 
sato il comando PLOT, mentre la funzione POINT rileva se questa va a 
toccare da qualche parte. Per esplorare la tastiera si usa IN (vedere 
capitolo 8) al posto di INKEV$, in modo da evitare anomalie nel caso i 
due contendenti premano assieme i tasti. 


5 GO TO 300 
10 REM Lumaca 1 

20 LET e = (IN 65022=253) -(IN 65 
022=254.) 

30 LET f = ( IN 64.510=253) - (IN 65 
273=253) 

4.0 IF e < >0 OR f<>0 THEN IF NOT 
(6 < >0 RND f<>0) THEN LET C=e: L 
ET d = f 


50 LET a =a + C: LET b = b+d 
60 IF POINT (a,b) THEN LET s=2 
GO TO 200 
70 PLOT a,b 
100 REM Lumaca 2 

110 LET y = ( IN 4-9150=253) -( IN 4-9 
150=251) 

120 LET Z = ( IN 5734-2 = 253) -(IN 32 
766=253) 

130 IF y < >0 OR Z < >0 THEN IF NOT 
(y<>0 RND Z < >0) THEN LET W=y: L 
ET x=z 

140 LET U =U +W : LET V=V+X 


(u , v ) THEN LET S=1 


PRUSE 100: CLS 


150 IF POINT 
GO TO 200 
160 PLOT U,V 
170 GO TO 20 
200 REM fine 
210 PRUSE 1: 

220 PRINT RT 10,10;"Lumaca 
' Ha vinto" 

230 PRINT RT 12,8;"Tenta di nuo 
■•o (NOT (s-D ) + l 
240 STOP 

LET b=155: LET C= 



300 LET a=20: 

1: LET d =0 
310 LET U =235 
-1: LET X =0 
320 CLS 
330 LET m =40 
340 FOR n =1 TO 6 


LET V=25 : LET W = 


350 FOR p=l TO 7 
360 IF n<=5 RND p<=6 THEN PLOT 
m*p-28.m*n-32 : DRRU 30,0 
370 IF n<=4 THEN PLOT m*p-33,Hi* 
n-27 : DRRU 0,30 
330 NEXT p 
390 NEXT n 

400 PLOT 0,0: DRRU 255.0: DRRU 
0,175: DRRU -255.0: DRRÙ 0,-175 
410 GO TO 10 
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20-170 

20-40 

50 

60 

70 

100-160 

200-240 

300-410 


Loop principale del programma eseguito per muovere ogni 
lumaca di un pixel. 

Rileva se qualche tasto del giocatore di sinistra (W, A, S, 2) 
viene azionato e quindi predispone le variabili “c" e “d”. 
Calcola la nuova posizione della lumaca 1. 

Fine programma se è andata a picchiare da qualche parte. 
Disegna la nuova posizione della lumaca 1. 

Routine simile per la lumaca 2. 

Fine della routine. 

Partenza della routine che genera il labirinto e predisposi¬ 
zione delle direzioni iniziali delle lumache. Queste funzioni 
sono state messe alla fine del listato per poter dare al loop 
principale (linee 20-170) velocità massima. 
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PUNTI IN MOVIMENTO 


Nella maggior parte dei giochi è più utile muovere degli oggetti inve¬ 
ce di far aumentare la lunghezza di una riga. Per ottenere ciò è neces¬ 
sario cancellare la vecchia immagine disegnandone una nuova: 

10 FOR à Si TO £55 
£0 PLOT a.0: PLOT INUERSE l;a- 
1,0 

30 NEXT a 

4.0 PLOT INUERSE 1; 255,0: GO TO 
10 


(La linea 40 cancella l’ultimo punto prima di ripetere il movimento). 

Facendo girare la routine, si ha l’impressione, grazie a PLOT, di un 
movimento continuo, anche se l’oggetto è piccolo e la velocità non ec¬ 
cessiva. 

Provate inserendo il comando PRINT AT: 


« 


10 FOR a=l TO 31 
£0 PRINT RT 0 ,a : ", 

30 NEXT a 

4.0 PRINT RT 0,31i"«” 


RT 0,a-l; " 
: GO TO 10 


che rende molto meglio l’idea, infatti potete rallentare ulteriormente la 
corsa, aggiungendo la linea; 


25 PRUSE 3 


per mezzo della quale potrete vedere più distintamente la stella. In pra¬ 
tica, il programma deve fare molte altre cose per far muovere un ogget¬ 
to, confermando l’inadeguatezza del BASIC per la generazione dei mo¬ 
vimenti, i quali, comunque, sono spesso sufficientemente veloci. 

In entrambe le routines viste abbiamo disegnato il nuovo oggetto pri¬ 
ma di cancellare il vecchio, poiché in questo modo si riesce ad ottenere 
un movimento continuo, specie se tra i due eventi vi è un certo ritardo. 
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CADUTA DI ELEFANTI 


Una caratteristica interessante di PRINT AT per mostrare degli og¬ 
getti in movimento è la possibilità di usare anche caratteri grafici. 

La prossima gara, semplice ma divertente, si rifà ai detto che gli ele¬ 
fanti scendono dagli alberi sedendosi su una foglia e aspettando l'au¬ 
tunno. 

Il gioco inizia con 32 elefanti liberi in cielo. Cadono però uno alla vol¬ 
ta e voi dovrete accorrere sotto di essi con un telo di salvataggio per re¬ 
cuperarli (usando i tasti 5 e 8), prima che si schiantino a terra. Il tutto è 
accompagnato da “musica”. 

Alla fine della gara ci viene mostrato il numero di elefanti rimasti in 
vita. Se qualcuno si lamenta del fatto che il telo di salvataggio non può 
muoversi abbastanza velocemente per salvare tutti gli elefanti, conso¬ 
latelo dicendogli che "é la vita". 


1*8 

9, SI 

120 DATA 0.0,0,0,0,0,195,126 
130 POR a=0 T0 23: READ b: POKE 
USR "a"+a.b: NEXT a 
14.0 RANOGMIZE 

150 DIM h(32): LET ni=16: LET S= 

0 

160 BORDER 1: PAPER 1: CLS 
170 PRINT AT 21,0, PAPER 4;,, 
180 FOR a=31 TO 0 STEP -1: PRIN 
T INK 7AT 0,a.;”*": PAUSE 10: NE 

*200 FOR t=l TO 32 
210 LET X = INT <32*RND> : IF h(x + 
1) < >0 THEN 00 TO 210 
220 LET h (X+1)=1 
300 FOR y=l TO 19 
310 LET n=M 

320 IF INKEY$ = "5" AND ni >0 THEN 
LET n =n-1 

330 IF INKEYt = "8" AND ni <31 THEN 
LET n =n +1 

340 PRINT AT 19, ni," " ; AT 19 , n ; 
INK 3iV';AT y , x ; INK 7.;"H";AT y 

~350 ' LET fu =n : BEEP .005,25-y 
360 NEXT y 


B ATA 0,0,0,0,0,61,126,255 
ATA 0,4è,126,95,127,127,17 
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400 IF x < > ni THEN PRINT RT 19 . X ; 
" " ; RT 20,x; INK 2;: BEEP .2, 
-50 : GG T0 430 

410 BEEP .05,10: BEEP .05.15: B 
EEP .1,22: LET S=S+i 
420 PRINT RT 12,X ; " ”, INK 7;RT 
20 , x ; "JH" 

430 NEXT t 

500 PRINT RT 5,2; INK 9,”HRI SR 
LURTO ELEFRNTI” 


Tenete presente che le lettere maiuscole "A”, “B”, e “C”, inserite nel 
listato, vanno battute come caratteri grafici A, B e C. 

Dopo aver eseguito il programma una volta, essi appariranno nel li¬ 
stato come tali. 


100-130 Stabilisce i tre caratteri grafici i cui otto valori binari, neces¬ 
sari alla definizione di ogni carattere, vengono trasformati in 
altrettanti numeri decimali per una più facile codifica (linee 
100 - 120 ). 

150 Predispone i 32 elementi dell’array h( ) mettendoli inizial¬ 

mente a zero. Ciò serve da “flag” alla caduta di ciascuno 
dei 32 elefanti. Posiziona "m” (telo di salvataggio) a 16 e il 
punteggio “s” a zero. 

160-170 Predispone lo sfondo e disegna la terra. 

180 Genera la linea dei 32 elefanti. 

200-430 Loop principale del programma eseguito per ogni elefante. 

210-220 Sceglie un elefante che non sia ancora caduto e lo fa scen¬ 
dere. 

300-360 Loop interno eseguito alla caduta di ogni elefante. 

310-330 Calcola la nuova posizione del piattino (n) partendo dalla 
vecchia (m) e permette l’uso dei tasti 5 e 8. 

340 Cancella le vecchie immagini dell’elefante in caduta e del 

piattino disegnandone nuove nella posizione che segue. 

350 Aggiorna la posizione del vecchio piattino e genera il rumo¬ 

re. 

360 Chiude il loop del numero degli elefanti. 
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400-420 L’elefante è sceso al livello del piattino; genera l’adeguato 
rumore e la sagoma adatta a seconda che l’elefante sia ca¬ 
duto o meno (x=m). 

430 Lettura per il prossimo elefante. 

500 Presenta il punteggio finale. Il colore di INK è portato a 9 

(contrasto) per evitare la scelta di un colore. 
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BREAKOUT 


Quando muovete gli oggetti sullo schermo, generalmente dovete an¬ 
che rilevare quando questi entrano in collisione tra loro. Un sistema per 
ottenere ciò è di tenere in memoria la posizione di ciascun oggetto sullo 
schermo. Supponete di predisporre un array come "mappa” dello 
schermo e vedrete che ogni singolo valore degli elementi costituenti 
viene presentato costantemente come - una parte dello schermo stesso. 
Un altro sistema è quello di stendere il programma in modo che le diffe¬ 
renti voci vengano scritte con diversi colori (o con differenti attributi 
BRIGHT o FLASH). La funzione ATTR vi dice ciò che si verifica in ogni 
punto dello schermo. 

ATTR necessita di una coppia di valori come la voce AT nello state¬ 
ment di PRINT, ma, a differenza di questa, deve essere posta tra pa¬ 
rentesi (che linguaggio pignolo!). La funzione rende un valore intero 
compreso tra 0 e 255 come somma di: 

128 in caso di lampeggio 
+ 64 in caso di maggior luminosità 
+ 8 colori di paper (0-7) 

+ il colore di ink (0-7). 

Per estrarre i singoli attributi, bisogna usare le routine che seguono; 

LET a»RTTR<u.,x> 

flash »INT<*xl28) 

t>r i aht» I NT< < a-128* INTC */128 > >/64 ) 

P*P*r * I HT< < *-64* I NT< a/64 > >/8 ') 
ink»a-8*INK a/S) 

Il gioco del BREAKOUT è un ottimo esempio di come usare ATTR per 
estrarre quanto è presente sullo schermo. Come saprete, il gioco inizia 
presentando un muro costituito da più righe di mattoni, che va abbattu¬ 
to colpendolo con una palla. All’impatto con la vostra palla ogni matto¬ 
ne svanisce, aumentando di 1 il punteggio. Più i mattoni sono interni e 
più il loro valore aumenta. 

Si inizia con 10 palle, e se ne perde una ogni volta che si sbaglia la 
battuta. La vostra racchetta è controllata dai tasti K (su) e M (giù); la 
palla viene rinviata con un’inclinazione che dipende dal punto di incon- 
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tro. Se riuscite ad aprire una falla nel muro e la palla vi penetra attra¬ 
verso, distruggerà i mattoni più interni, che danno un punteggio più al¬ 
to. Dando colori diversi allevarle righe di mattoni, la funzione ATTR non 
solo rivelerà se il muro è stato toccato, ma anche quale riga sia stata 
interessata. Tutto ciò rende il gioco particolarmente attraente. Usando 
ATTR, non lasciatevi trarre in inganno dal fatto che tutte le celle di ca¬ 
rattere presenti sullo schermo hanno il medesimo colore, anche se nel¬ 
la cella non compare nulla. Così: 

PAPER CLS : PRINT flT 3,3;INK 4;" " 

può portare anche un display vuoto, valutando con ATTR il colore INK 
della cella 3,3 troverete il valore 4. 

Per tale ragione, il programma usa colori permanenti di INK e PA¬ 
PER con valore 0, cambiandoli temporaneamente per mezzo delle fun¬ 
zioni PAPER e INK incluse in statement di PRINT. La variazione avvie¬ 
ne esclusivamente quando è necessario che appaia qualcosa sullo 
schermo. Perciò: 

PRINT RT y, x;" " 

non solo cancella ogni vecchia immagine, ma attribuisce anche il valo¬ 
re zero al colore di ink. 


100 PRPER 0: INK 0: BORDER 7; I 
NUERSE 0: OUER 0: FLASH 0: CLb 
110 DATA 0,126,126.126,126,136, 
126,0 

120 DATA 0,60,126,126,126,126,6 


0,0 

130 FOR a=USR "a" TO USR 
: READ b: POKE a,b:: NEXT 
140 RANDGMIZE : LET t=10: 

=0: LET C s 10 
150 PRINT INK 6;"PUNTI : 

160 FOR a=l TO 10: PRINT 
AT 0,21+3 ;CHR$ 145: NEXT a 
170 FOR a=l TO 5: FOR b = l TO 21 
1S0 PRINT PAPER 7; INK 6-a;AT b 
,a,CHR$ 144 
190 NEXT b: NEXT a 
200 FOR t=l TO 10: PRINT AT 0,2 


"a"+15 
*LET S 
0 " 

INK 6j 


l+t;" " 

300 LET X =6 : LET ysl + INT (21*RN 
D) 
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310 LET h = 1 : LET V=l: IF RND >.S 
THEN LET V =-l 

4.00 PRINT INK 6; RT y,x;CHR$ 14-5 
410 IF INKEY$=" H. " RND C> 1 THEN 
PRINT RT C,31," LET C = C-1 
420 IF INKEY$= ‘nì 11 RND C <21 THEN 
PRINT RT C,31;" " : LET C=C+1 
430 PRINT INK 7;RT C,3l;CHR* 13 
8: IF x >30 THEN 60 TO 600 
440 IF X =30 THEN LET d = C-y: IF 
d=0 OR d=V THEN LET h =-l: BEEP 
.02,12: IF d=V THEN LET V =-V 
450 IF x<l THEN LET h=l: BEEP . 
02,0 

460 IF y<2 THEN LET v=l: BEEP . 

02,0 

470 IF y >20 THEN LET V = -l: BEEP 

. 02,0 

480 PRINT RT y,x;" LET x=x+h 
: LET y=y+v: LET a «RTTR (y,x) 

490 LET a=a-8*lNT (a/8): IF a=0 
OR a=7 THEN GO TO 400 
500 PRINT INK 7;RT y,x;"*": BEE 
P .05,12+3«a 

510 LET S =S +a: PRINT INK 6;RT 0 


,3; s ; INK 0; RT y , x ; " " 
520 GO TO 300 


600 BEEP .1,-20: PRINT RT y,x; 


610 NEXT t 

700 PRINT INK 6;RT 0,20;"FINE P 
RRTITfl" 


100 Predispone gli attributi del display al loro valore nominale. 

110-130 Abilita i caratteri grafici “A” e “B” per fargli prendere il po¬ 
sto rispettivamente dei mattoni e della palla. 

Nel listato si riferiscono a “CHR$ 144’ e ’CHR$155”. 

140 Predispone i valori di partenza del punteggio e della posizio¬ 

ne della racchetta. 

150-190 Scrive il titolo e disegna le righe di mattoni. 

200-610 Loop principale del programma eseguito per ogni palla. 

300-310 Lancio della palla dalla posizione x,y con velocità orizzonta¬ 
le h=1 e velocità verticale v di +1 o —1. 

400-490 Loop interno eseguito per muovere la palla attraverso lo 
schermo finché questa non sparisca dal lato destro o colpi¬ 
sca i mattoni. Permette anche al giocatore di muovere la 
racchetta. 
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400 

410-420 

430 

450-470 

480 

490 

500-520 

600-610 

700-710 


Disegna la palla in posizione aggiornata. 

Cancella la vecchia racchetta e calcola la sua nuova posi¬ 
zione alla pressione dei tasti K o M. 

Algoritmo per preparare la palla ad un corretto rimbalzo sul¬ 
la superficie o sulle sponde della racchetta se questa è po¬ 
sizionata correttamente. 

Predispone la palla al rimbalzo sui lati superiore, inferiore o 
di sinistra dell’area di gioco. 

Cancella la vecchia palla, calcolandone la nuova posizione. 
Se il colore INK della nuova posizione della palla è 0 (ne- 
ro=posizione vuota) o 7 (bianco=racchetta), esce dal loop 
alla linea 400 per muovere nuovamente la palla. 

La palla ha toccato i mattoni, in tale posizione lampeggia 
una stella, viene generato un suono, incrementa il punteg¬ 
gio quindi torna alla linea 300 per un nuovo servizio della 
palla. 

La palla è fuori gioco, se ve ne sono ancora ne prende una e 
il gioco continua. 

Avete perso l’ultima palla, la partita è finita. 



138 


UCCELLINI 


Potete creare l’impressione di movimento anche eseguendo ripetuti 
"scrolling” su tutto lo schermo come mostrerà questo programma. 

Immaginate di essere un uccello, da qui il nome, che vola beatamen¬ 
te lungo il lato superiore dello schermo guidato verso sinistra dal tasto 
"5” e verso destra daH’"8”. Come natura comanda, per sopravvivere 
dovete mangiare, catturando il numero più alto possibile di insetti verdi, 
liberi sotto di voi (sullo schermo appaiono come dei punti a causa delle 
loro piccole dimensioni). Il numero sulla parte bassa dello schermo, in¬ 
dica quante riserve di cibo avete a disposizione: se non darete la cac¬ 
cia agli insetti, tale numero scenderà sempre di più fino a raggiungere 
lo zero che vi indicherà la prossima fine. Come se non bastasse, vi ve¬ 
drete arrivare addosso uno sciame di frecce, lanciate dai cacciatori, e 
voi dovrete fare di tutto per evitarle. 

Nel programma “Breakout” visto poco fa, abbiamo usato la funzione 
ATTR per distinguere ogni singola posizione sullo schermo. Qualcosa di 
simile accade in ‘‘Uccellini” per rilevare quando un insetto o una frec¬ 
cia entra in contatto col volatile. 

La funzione qui usata non è più ATTR bensì SCREEN$. 

SCREEN$ (y,x) restituisce il carattere presente alla colonna x della 
linea y solo se questo è un carattere compreso tra lo “spazio” e il sim¬ 
bolo di copyright (tra i codici 32-127). Qualora venisse presentato qual¬ 
siasi altro carattere, la stringa di ritorno sarebbe nulla (lunghezza ze¬ 
ro). Provate a dare un’occhiata ai caratteri riportati nell’Appendice 1. 
La funzione SCREENS non ha accesso all’area degli attributi in RAM, 
ma solamente all’area display, e non riconosce i caratteri normali dai 
caratteri inversi. 


100 RANDGMIZE : PAPER 7: INK 0: 
BORDER 7; FLRSH 0: BRIGHT 0: GU 
ER 0: INUERSE 0 

110 OPTA 0,0,24., 126,139., 36,0,0, 
0,0,153,126,60,36,00 
120 FGR a =0 T0 lè: READ è: POKE 
a +U5R CHR$ 144, a: NEXT a 
130 LET S =50 : LET X=15 
200 FQR f= 144 TO 145: LET S=S-1 
: PRINT AT 0,x; INK l.iCNR* f 
210 IF INKEY$=”5” AND x >0 THEN 
LET X sX-1 
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220 IF INKEY$="8" AND X <31 THEN 
LET X =X +1 

230 PRINT INK 2; RT 19 .. 31*RND; "t 
";RT 19,31*RND;"t" 

24.0 IF RND < . 3 THEN PRINT INK 4.; 
RT 19,3l*RND;"." 

2S0 POKE 23692,0: PRINT ' ,..S: 
IF S<=0 THEN GO TD 300 
260 LET P*=5CREEN$ (0,x): IF p$ 
a"t" THEN GG TO 300 
270 IF THEN LET S=S+20: 

BEEP .05,30 
280 NEXT f 
290 GO TO 200 

300 FOR a=0 TO 19: BEEP .05.20- 

a 

310 PRINT INK 1;RT a.x," ",RT à 
+ 1 , X ; CHR t 14.5 
320 NEXT a 
330 BEEP .1,-40 


100 


200-280 

200 

210-220 

230 

240 

250 

260-270 

290 

300-330 


Stabilisce le condizioni iniziali, predispone i due caratteri 
grafici, i valori iniziali del punteggio (s) e la posizione oriz¬ 
zontale dell'uccello. 

Loop di volo che alterna di due caratteri grafici. 

Disegna l’uccello nella sua ultima posizione. 

Calcola la posizione seguente se vengono battuti i tasti 5 o 

8 . 

Disegna a caso due nuove frecce sullo schermo in basso. 
Disegna a caso un nuovo insetto sullo schermo in basso. 
Scrive il numero della riserva di cibo e provvede allo 
“scroll” di una linea. 



ESAME DI GUIDA 





Potete fare in modo che una linea appaia in movimento cancellando¬ 
la e ridisegnandola continuamente in posizioni sempre adiacenti. È 
questo un processo assai lento, ma per l’esame di guida è sufficiente. 
Lo schermo vi mostra la pista così come la si vede al disopra del cofano 
della vostra auto da corsa. Non dovete fare altro che mantenere la vo¬ 
stra auto entro la carreggiata, sterzando con i tasti 5 (a sinistra) e 8 (a 
destra). State in guardia perché col passare dei chilometri, la pista si 
restringe sempre di più! 


180 DRTR 0,224., 224-, 224., 224. ,224, 
224., 255 

101 DRTR 0,0,0,60,126,255,255,2 
55 

102 DRTR 0,7,7,7,7,?,?.255 

110 POR a =8 TO 23: RERD b: POKE 
a+USR CHR* 14.4., b: NEXT a 
120 LET C*=CHR* 144+CHR* 145+CH 
R$ 14-6 

130 BORDER 7: PAPER 4: INK 0: C 
LS 

140 LET «1=0: LET d=123: LET f *d 
: LET dl=d: LET fl = f: LET S=0: L 
ET Ul =48 

150 FOR a =1 TO 10: PRINT PAPER 
1,: NEXT a 

200 LET m =«. + ( INKEY$ = "S" ) -(INKEY 
$="3" ): LET d=d+m+4*SIN S 
210 IF d <0 THEN LET d=0 
220 IF d >255 THEN LET d=255 
230 LET r=127+.5*(d-127): IF r< 
25 THEN LET f =25 
240 IF 0225 THEN LET r =225 
250 PLOT INVERSE l;rl-w,0: DRflU 
INVERSE l;dl-r1+w,136: DRRU INU 
ERSE l;w+rl-dl,-136 
260 LET W =W-.1: PRINT RT 21,14; 

C Ì?0 PLOT r-w,0: DRRU d-r+W,136: 
DRRU w +r-d,-136 

230 LET d1=d: LET fl=r ; LET S=S 
+ . 1 


141 



290 IF W-A6S (123.5-f)>12 THEN 
GO TO 200 

300 PRINT FLASH 1; INK 3 ; AT 2.3 
;" HAI PICCHIATO " 

310 PRINT AT 5,7;"dopo ";s;" eh 
i lo me t r i " 

100-150 Predisposizione delle condizioni iniziali, comprese le tre 
stringhe di caratteri c$ che disegnano il cofano della vostra 
auto. Notate la linea 150 che riempie di blu la parte superio¬ 
re dello schermo, raffigurando il cielo. 

200-290 Loop principale. 

200 Ritocca la variabile “m”, alla pressione dei tasti 5 e 8. Nota¬ 

te che il primo statement di questa linea, equivale alle due 
linee che seguono: 

IF INKEY*®"5 M THEN LET m-m+1 
IF INKEY*®"8" THEN LET ro*ro~l 

210-220 Posizione "d" della congiunzione della pista all’orizzonte 
che non va mai oltre ai bordi dello schermo. 

230-240 Calcola "r” che è la posizione del termine vicino delia pista 
impedendogli di avvicinarsi troppo ai Iati dello schermo. 

250 Cancella il vecchio tracciato della pista. 

260-270 Restringe sempre di più la pista, disegna il cofano dell’auto 
e la pista nelle nuove posizioni sullo schermo. 

280-290 Incrementa la distanza percorsa (s) e salta alla linea 200 se 
l’auto non è ancora uscita di strada. 

300-310 Fine della routine. 
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CAPITOLO 12 


GO SUB, DEF FN E BELLO STILE 


Avete visto che spesso è necessario includere gli stessi (o simili) set 
di istruzioni, in varie sezioni dello stesso programma. Il BASIC vi per¬ 
mette di scrivere tali set una sola volta per poi richiamarli, come sub¬ 
routine, quando si presenti la necessità. 

Una “Subroutine" BASIC sembra una qualsiasi altra parte del pro¬ 
gramma, con la sola differenza che termina con lo statement RETURN. 
Conviene spesso stendere il programma come una routine principale 
che si avvale di routine secondarie, richiamabili più volte, in qualsiasi 
momento. 

Per usare, o meglio, per richiamare una subroutine, battete 
GO SUB n 


nel contesto del programma, considerando “n” il numero della prima li¬ 
nea della subroutine. GO SUB è simile a GO TO con la sola differenza 
che specifica allo Spectrum in quale parte del programma si trova lo 
statement di GO SUB richiamato. Quando si raggiunge RETURN, posto 
alla fine di ogni subroutine, il programma compie un salto all’indietro 
portandosi allo statement immediatamente successivo a quello del GO 
SUB di chiamata. Ad esempio, 


10 PRINT 10 
20 qo SUB 100 
30 PRINT 30 
4.0 STOP 
100 PRINT 100 
110 RETURN 


scriverà i numeri nell'ordine seguente: 


10 

100 

30 
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Le linee 10 e 40 compongono il programma principale e le 100, 110 
la subroutine. 

Indispensabile è lo statement di STOP (linea 40) la cui mancanza fa¬ 
rebbe proseguire il programma alle linee 100 e 110. 

Tralasciando la linea 110, si incapperebbe nel messaggio di errore 

RETURN without GO SUB 


perché lo Spectrum non saprebbe a cosa ritornare. 

Per dimostrare che la subroutine può essere richiamata quante volte 
si vuole, e che GO SUB può apparire anche più di una volta in state¬ 
ment multipli, provate: 

10 PRINT 1: GO SUB 100: PRINT 
2: GO SUB 100 

20 GO SUB 100: PRINT 3 
30 STOP 

100 PRINT ,, subr": RETURN 

che darà 
1 

su.br 


su.br 

su.br 

3 


Anche se è più comodo mettere le subroutine alla fine del program¬ 
ma, nessuno vieta di disporle dove più vi aggrada, facendo attenzine 
che vengano eseguite solo per opera di un GO SUB. 

Una subroutine ne può chiamare un’altra: 


GO SUB 100 
GO SUB 200 


10 PRINT 1: 

20 PRINT 2: 

3®* STOP 
100 PRINT 100: GO SUB 200: 


RN 

200 PRINT 200: 


RETURN 


RETU 


da cui risulta la lista 


1 

200 

200 

2 

200 
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Parte della RAM è riservata al “GOSUB Stack”. In questa zona ven¬ 
gono memorizzati i numeri di linea e gli statement ai quali si trova GO 
SUB, in modo che lo Spectrum possa sapere dove saltare quando in¬ 
contra RETURN. 

L’informazione è memorizzata come un elenco al quale il computer 
aggiunge, dopo aver eseguito il GO SUB, il numero di linea e quello del¬ 
lo statement. Quando lo Spectrum incontra il RETURN, toglie dal fondo 
dell’elenco il numero di riga e di statement inseriti per ultimi. Il pro¬ 
gramma perciò ritorna sempre all’istruzione che segue l’ultimo GO SUB 
eseguito. 

Abbiamo visto come una subroutine possa richiamarne una seconda; 
non vi è alcun limite al loro numero, se non quello dell’area di RAM, ne¬ 
cessaria alla memorizzazione degli indirizzi di ritorno. Il BASIC dello 
Spectrum permette anche che una subroutine richiami se stessa (pro¬ 
cesso chiamato “ricursione”), fino al raggiungimento di un certo risul¬ 
tato. Ad esempio, il programma che segue calcola il fattoriale di “n” (n!) 

< ri ! n-1 >*< n-2 > - - ~ #1 > 

10 input ”n ? ’*;n 

20 LET x=n: LET y*l: GO SUB 10 

0 

30 PRINT “Fattoriale ”;n;” = ” 

; y 

40 STOP 

100 IF X>0 THEN LET y=y*x: LET 
X =X-1: GO SUB 100 

110 RETURN 
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DEF FN 


Capita spesso che nello stesso programma, siano presenti calcoli o 
espressioni simili; in tal caso è possibile scriverli una sola volta, per poi 
richiamarli con una subroutine. 

Queste però hanno lo svantaggio di lavorare solamente con i nomi di 
variabili specificate nella routine stessa. Ad esempio, volendo calcolare 
il valore medio di due numeri, è necessario agire come segue: 

oìfl 0 DI E X ^ fl Y SUBR0UTINE 00 ' *-fl ME 
110 LET media= (x+y)/2 
130 RETURN 

ma questa subroutine fornisce solo la media dei valori contenuti nelle 
variabili x e y. Può darsi che nel vostro programma vogliate calcolare 
anche la media di p e di q, e di c e d. Per usare la subroutine dovreste 
riassegnare i valori delle variabili ogni volta: 

30 LET Xsp: LET y *q : GO SUB 10 

0 

SS LET X =C : LET y=d: GO SUB 10 

0 

In tutte le funzioni già presenti nello Spectrum si fa però riferimento 
alle variabili interessate, per cui scriverete SQR(a) per ottenere la radi¬ 
ce quadrata di “a” e SQR (z) per ricavare quella di “z”. Definendo una 
nuova funzione potete analogamente specificare la variabile su cui fare 
le operazioni. 

Per definire una nuova funzione bisogna inserire nel programma una 
istruzione del tipo: 

DEF FN argomenti^espressioni 

in cui “a” rappresenta il nome da dare alla nuova funzione. Può essere 
sia una semplice lettera, sia una lettera seguita da “$” se la funzione 
porta ad un risultato di stringa. Come già per i nomi, anche qui lo Spec¬ 
trum non fa distinzioni tra lettere maiuscole e minuscole. Gli “argomen¬ 
ti” posti tra parentesi sono nomi fittizi per i valori da trattare ed an- 
ch’essi sono rappresentati da una singola lettera o da una lettera segui¬ 
ta da “$”. 
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Per calcolare la media di due numeri, è necessario definire la funzio¬ 
ne FN a, attraverso lo statement: 

DEF FN *<x,tìWx+«V2 

facendo riferimento a FN a(e,f) dove “e” e “f” sono i due valori dei qua¬ 
li vogliamo ricavare la media. Quando lo Spectrum incontra la funzione 
FN a(e,f) la ricerca, partendo dalla prima linea del listato, fino a che 
non trova lo statement "DEF FN a”. Trovatolo, risolve l’espressione alla 
destra dell’uguale rimpiazzando le variabili fittizie (in questo caso "x” e 
“y”) con quelle aggiornate (e ed f). Come al solito, gli esempi valgono 
di più delle parole per cui provate. 

10 DEF FN m (x,y,z) = (x +y +z) /3 
20 PRINT FN M (1.2,3) 

30 LET P =5: LET 3=6 
4.0 PRINT FN # (p ,7,q» 

darà come risultato 

2 

6 

Se gli argomenti tra parentesi sono più di uno, vanno separati dalla 
virgola, mentre se l’argomento manca le parentesi rimarranno vuote. 
L'esempio 

10 DEF FN f OaPEEK 23730+2S6*P 
EEK 23731 

20 PRINT FN fi) 

stampa il contenuto della Variabile di Sistema RAMTOP. 

L’espressione dopo il segno uguale dello statement DEF FN, può es¬ 
sere di qualsiasi tipo comprendendo anche altre funzioni ovariabili rea¬ 
li; battete 

10 DEF FN a (x) ax+y 
20 LET y =1 
30 PRINT FN a(2) 

che darà come risultato 3. 

Se nel programma vi è una variabile reale con lo stesso nome di una 
fittizia, viene ignorata al momento del calcolo della funzione. Se per e- 
sempio la linea 20 del precedente programma fosse stata 

20 LET x»99: LET y=l 
il risultato non sarebbe cambiato. 
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BELLO STILE 


Per quanto il BASIC sia un buon linguaggio per i principianti e per 
scrivere programmi corti, presenta i suoi inconvenienti quando si tenta 
di scrivere un programma di una certa lunghezza. Una delle cause, 
quella meno importante, riguarda la velocità di esecuzione. Dato che il 
BASIC dello Spectrum è un linguaggio "interpretato”, per mezzo del 
quale il computer traduce o “interpreta” ciascuna istruzione quando la 
incontra, ne deriva che non è altrettando veloce del linguaggio macchi¬ 
na o di uno dei linguaggi “compilati”, quali possono essere il FOR¬ 
TRAN, il FORTH o il Pascal (in linguaggio “compilato” l’intero program¬ 
ma viene tradotto in linguaggio macchina o quantomeno in qualcosa di 
molto vicino ad esso, prima di essere eseguito). 

Ogni volta che il “flusso” di un programma cambia a causa di una i- 
struzione GO TO, di un GO SUB o NEXT, lo Spectrum deve trovare la ri¬ 
ga alla quale è indirizzato. Ciò significa che i loop eseguiti alla fine di un 
programma abbastanza lungo, impiegheranno più tempo ad essere 
completati che non quelli situati all’inizio. Tale ritardo si verifica anche 
quando si usa una funzione definita dall’utente con l’istruzione DEF FN. 

Il problema principale nello stendere lunghi programmi BASIC non 
sta però nel computer bensì nell’operatore che li scrive, infatti tanto più 
lungo è il programma tanto più facile è sbagliare. 

Considerate ad esempio, la struttura di un programma, cioè il modo 
in cui progredisce da una funzione alla successiva. Una istruzione 
IF..THEN GO TO origina due strade alternative, per cui un programma 
con sole 10 istruzioni del genere possiede oltre un migliaio di percorsi 
diversi. Come essere certi che siano tutti giusti? Nel capitolo 4 abbiamo 
rappresentato graficamente il flusso di un programma: se i vostri grafici 
assomigliano ad un piatto di spaghetti, con ogni probabilità anche il vo¬ 
stro modo di pensare è altrettanto aggrovigliato. Cercate di evitare, ap¬ 
pena possibile, l’uso di GO TO e per rendere le cose più comprensibili, 
dividete il programma in blocchi chiaramente definiti dotati, se possibi¬ 
le, di una sola entrata e di una sola uscita. I linguaggi più sofisticati, co¬ 
me il Pascal, vi costringono a scrivere in questo modo, nel BASIC do¬ 
vrete arrangiarvi per conto vostro usando, magari, un blocco separato 
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di numeri di righe per ciascuna sezione del programma, come per quel¬ 
li presentati su questo stesso libro. 

Potete scrivere anche un programma “principale”, molto breve, in 
grado di richiamare diverse subroutine che assolvano le varie funzioni. 
In questo caso, il meccanismo delle subroutine servirà come aiuto per 
comprendere meglio il funzionamento, e non per effettuare successivi 
richiami. Ad esempio, la sezione principale di un programma di giochi, 
potrebbe essere 


m REM record»© 
GO SUB 1000 

r 'ia 0 GO SUB 2000 
artita _ , 

130 GO SUB 3000 


REM preparazio 
REM gioca La p 
rem punteggi 


140 input "Un'a 11ra partita (y/ 

n 150 ÌF*i$s"y" THEN GO TO 110 
160 IF i*<>"n" THEN GO TO 140 
170 STOP 


Le subroutine 1000, 2000 e 3000 potrebbero, a loro volta, chiamare 
altre subroutine per frammentare maggiormente il programma otte¬ 
nendo unità dimensionate in modo da essere più maneggevoli. Il listato 
del programma diventa più comprensibile se: 

— impiegate istruzioni REM per contrassegnare le sezioni principali. Le 
righe interessate consistono in un solo numero e nella funzione 
REM; 

— se possibile, fate in modo che la riga assolva una azione completa; 
per esempio: 

100 FOR a=l TO 10: LET yta)»a: 

NEXT a 

110 FOR a»16 TO 24: LET y(a)=33 
: NEXT a 


è più facile da comprendere che non 


100 FOR a=1 TO 10: LET 
NEXT a: FOR a=16 TO 24 
110 LET y (a) =33: NEXT a 


y (a) =a: 


— mettete le funzioni FOR e NEXT all’inizio delle righe, tranne quando il 
loop completo è contenuto sulla medesima linea; 
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— usate nomi di variabili che abbiano un significato. 

Altro problema che potrebbe sorgere, per l’impossibilità di avere sot- 
t’occhio contemporaneamente tutti i particolari, è la duplicazione invo¬ 
lontaria di nomi di variabili. Anche in questo caso, i linguaggi tipo Pa¬ 
scal, sono superiori, perché permettono l’uso di variabili ‘'locali” valide 
solamente entro una certa sezione del programma, in modo analogo a 
quanto avviene per le variabili “fittizie” in istruzioni DEF FN. Nel BASIC 
dello Spectrum, tutte le variabili sono da considerare “globali”, quindi 
tutto ciò che potete fare è prendere nota dettagliatamente di ogni varia¬ 
bile usata. La parte restante di questo capitolo riguarda una serie di 
programmi ragionevolmente lunghi, sia per vostro divertimento sia per 
illustrare i punti sopra descritti. 
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BIORITMI 


GRAFICO DEL BIORITMO PER 
ZX Spectruffi 
nato 23/4-/1982 

EMOZIONALE FISICO INTELLETTUAL 



Questo programma illustra come si richiamano più volte, e da diver¬ 
se parti, alcune subroutines. 

Esso riprende la teoria secondo la quale il ciclo fisico, quello emozio¬ 
nale e quello intellettuale, si ripetono, nei singoli soggetti, rispettiva¬ 
mente ogni 23, 28 e 33 giorni, partendo dal giorno della nascita. Le al¬ 
ternanze delle tre curve vengono disegnate per la durata di quattro set¬ 
timane, attorno alla data prescelta. I giorni critici sono quelli in corri¬ 
spondenza dei quali le curve intersecano la linea centrale. Potete dise¬ 
gnare i grafici con vari colori, sperimentandone diversi e scegliendo 
quelli che secondo voi sono esteticamente più gradevoli. Un buon effet¬ 
to si ha tracciando le curve e gli assi con i colori magenta (rosso), ver¬ 
de, ciano e giallo il tutto su sfondo nero. Per una migliore resa, i grafici 
sono spessi solamente tre pixel. 

Il programma comprende due subroutine, con inizio alle linee 1000 e 
2000 ripetute continuamente, con piccole variazioni. 


100 PAPER 7: INK 0: BORDER 7: I 
NUERSE 0: OUER 0: FLASH 0: CLS 
110 PRINT AT 5,10; INK 3;"BI0RI 
TMI": INPUT "Cowe ti chiami 
LINE n $ 
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120 PRINT RT 8,0j"Ciao 

ito r 


n*;RT 

10,0;"Quando sei na 
130 GO SUB 1000: PRINT RT 10,19 
d*: LET b$=d $ : LET Z *X 
14.0 print RT 12,0; "Qua le 
: GO SUB 1000 
RT 12,17;" ";dt 


LET 


PRINT RT 15,0;"R que 


"hai 
"ha i 


,d, anni 
mangiato " 


3*d. 


"e hai dormito per' 

"Premi ENTER per 
"; LINE i$ 

0: INK 6: BORDER 


8 


t t 


da ta i 

nteressa 
150 PRINT 
d=X-Z 
160 INK 3 
sta data" 

170 PRINT 
1S0 PRINT 
pasti 
190 PRINT 
*d;" ore." 

200 INPUT 
u o grafico 
210 PRPER 
LS 

220 PRINT TRB 6;"GRAFICO DEL BI 
ORITMO PER " 

230 PRINT TRB 15-LEN n*/2;n$'Tfl 
B 12 -len b$/2;"nato ";b$ 

240 FOR a=l TO 255 STEP 9: PLOT 
a,73: DRRU 0,3: NEXT a 
250 FOR a=l TO 255 STEP 63: PLG 
T a,71: DRRU 0,6: NEXT a 
260 PLOT 127,10: DRRU 0,12S 
270 PRINT RT 21,0;"- 2 VKS";TAB 
25 ; " + 2 v K, S " 

280 PRINT RT 21,15-LEN d*/2;d$ 
300 INK 3: PRINT RT 3,0;"EMOZIO 
NALE": LET c=28 : GO SUB 2000 
310 INK 4: PRINT RT 3,11;"FISIC 

0": LET C =23*: GO SUB - 

320 INK 5: PRINT RT 
LETTURLE": LET C=33: 

330 PRPER 7: INK 0: 

340 STOP 

1000 DRTfi 0,31,28,31 
,31,30,31,30,31 
1010 INPUT "Anno 7 " ; y : LET X*36 
5«y + INT (y/4) -INT (y/100) 

1020 INPUT "Mese (1-12) 7 ";m: I 
F rn<l OR m >12 TMEN GO TO 1020 
1030 RESTORE : FOR a*l TO m: REA 
D b: LET X*X+b: NEXT a 
1040 LET l ay *4#INT (y/4) AND y<> 
100 * INT (y/100) 

1050 IF t AND m >2 THEN LET X*X + 1 
1060 READ b: IF L AND m=2 THEN L 
ET b*29 

1070 INPUT ("Giorno 
") ;d: IF d <1 OR d > b 
070 

1080 LET X=X+d: LET d$=STR$ d+"/ 
"+STR* m+"/"+STR* y 
1090 RETURN 


2000 
3,20;"INTEL 
GO SUB 2000 
BORDER 7 

,30,31,30,31 


(!-";b;‘ 
THEN GO 


) 1 
TO 
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2000 FOR a =0 TO 253: LET b»d-14.+ 
a/9 

2010 PLOT a,7*+60*SIN <2*PI*b/c) 

: DRRU 2,0 
2020 NEXT a 
2030 RETURN 


100-150 Chiede la data di nascita e quella attuale per mezzo della 
subroutine alla linea 1000. Calcola il numero di giorni (d) 
che intercorrono tra di loro e forma due stringhe (b$ e d$) 
contenenti le date. 

160-190 Scrive alcune informazioni curiose. 

200 Attende il via dall’operatore. 

210-280 Disegna il reticolo e stampa i titoli. Notate la tecnica adotta¬ 
ta alle linee 230 e 280 per centrare le stringhe rispetto alle 
linee. 

300-320 Disegna i tre grafici con diversi colori usando la subroutine 
alla linea 2000. 

330-340 Varia i colori di paper, ink e bordar a seconda dei vostri gu¬ 
sti, quindi si ferma. 

1000 Prima subroutine usata per la data: controlla la validità del 
mese e del giorno e genera la stringa standard contenente 
la data sotto la forma "dd/mm/yyyy”. Fornisce il numero 
“x” necessario al calcolo dei giorni trascorsi tra le due date. 
La linea 1040 è particolarmente interessante in quanto rico¬ 
nosce “vera” la variabile “I” se l'anno è bisestile, “falsa” 
nel caso contrario. Tale variabile è usata anche dalle linee 
1050 e 1060 per la sistemazione del numero dei giorni. 

2000 Subroutine che disegna le curve. 
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COLLISIONI 



Voi e lo Spectrum state guidando, ognuno con la propria auto da cor¬ 
sa, in un tracciato a quattro piste. Ma non si tratta di una vera e propria 
corsa: le auto, infatti, procedono in direzione opposta e quella guidata 
dallo Spectrum farà di tutto per venirvi addosso! Quanti giri saprete re¬ 
sistere prima che avvenga l’inevitabile fine? 

Alla partenza il progamma vi chiederà il grado di difficoltà che dovre¬ 
te inserire battendo un numero compreso tra 1 e 9. Ovviamente, più 
questo è alto e più aumenta la vostra pazzia suicida e omicida del vo¬ 
stro avversario. Potete eseguire un movimento alla volta e l’unico con¬ 
trollo che avrete a disposizione è quello dello spostamento da una pista 
all’altra all’altezza delle aperture. Il tasto “I” sposta verso l’interno, il 
tasto "O”, verso l’esterno. 


100 GO SUB 9000: REM preparati 
per la prima corsa 
200 IF yy =21-y t THEN LET nyx=yx 
+ l: IF yx =30-yt THEN LET nyy=yy- 
1: LET y $ = CHR$ 14-5 
210 IF yy =yt THEN LET nyx=nyx-l 
: IF yx =y t +1 THEN LET nyy=yy+l: 
LET y$=CHR* 14.5 

220 IF yx=yt THEN LET nyy=yy+l: 
IF yy =20-yt THEN LET nyx=yx+l: 
LET y*=CHR$ 14-4 

230 IF yx =31-y t THEN LET nyy=yy 
-1: IF yy=yt + l THEN LET nyx =yx-1 
: LET y$=CHR$ 144- 
240 IF nyx=l5+(yy>12) OR nyy=ll 
THEN LET yf=2*((yt<? AND INKEY $ 
a"i")-(yt>i AND INKEY$="0")) 
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250 IF y f < >0 THEN LET nyx=nyx+( 
my x =y t ) - fnyx =31-y t n *SGN yf: LE 
T nyy =nyy +((nyy =y t )-(nyy =21-yt)) 

HyP-^N y? T yt= y t+SGN y r ' : LET y 

250 IF nyyscy AND nyx=cx THEN G 
0 TO 400 

300 IF Cy =21-C t THEN LET HCX=CX 
-1: IF cx=ct+l THEN LET ncy=ncy- 
1: LET C $=CHR$ 145 

310 IF cy =C t THEN LET nCX=CX+l: 

IF cx=30-ct then LET ncy=cy+l: 
LET C$=CHR$ 145 

320 IF CX=Ct THEN LET ncy=cy-l: 

IF cy =c t +1 THEN LET ncx=CX+l: L 
ET C$=CHR$ 144 

330 IF cx=3i-ct then LET ncy=cy 
+ 1: IF cy=20-Ct THEN LET n C X = C X - 
1: LET C$=CHRS 144 

340 IF (nex=15+(ncy>8)) OR ncy = 
Il THEN IF RND<S/10 THEN LET C f = 
2 *SGN (yt-ct) 

350 IF Cf<>0 THEN LET ncx=ncx+( 
(nex=Ct)-(nex=31-Ct))*SGN Cf: LE 
T n cy =n cy + ( (n cy =c t) - (ncy =21-c t) ) 
*SGN cf: LET Ct=Ct+SGN Cf: LET C 
faef-SGN Cf 

400 PRINT RT yy,yx;" ";RT cy,cx 


M ;RT ny» 
,ncx; ink 


INK 1;y $;RT ncy 


LET 


,nyx, 

c$ 

410 LET yxsnyx: LET yy=nyy: 
cx=ncx: LET cy=ncy 
420 IF y x = 16 RND yy<8 THEN LET 
l a P = l a P +1 : PRINT RT 9.12; lap " G 
IRÒ”, ("s" RND lap >1) 

430 IF yxocx OR yyocy THEN GO 
TO 200 

500 FOR a =1 TO 6: FOR b = 144 TO 
145: BEEP .03,-40: PRINT INK a;fi 
T yy,yx;CHR$ b: NEXT b: NEXT à 
510 PRINT RT yy,yx;CHR$ 146 
520 IF lap>hi THEN LET hi=iap: 
PRINT RT 11,12;" PUNTI ";RT 12 
, 15 ;h i 

53© INPUT "Premi enter per un'a 
ttra corsa"; LINE i$ 

540 PRINT RT yy,yx;" ": GO SUB 
9200: GO TO 200 
9000 REM disegna il tracciato 
9010 INK 0: PAPER 7: FLASH 0: BR 
I6HT 0: OUER 0: INUERSE 0: BORDE 
R 7 : CLS 

9020 FOR a=32 TO 160 STEP 32: PL 
OT a/2,a/2-13 

9030 DRRU 256-a,0 : DRfiW 12,12,PI 
/2 

9040 DRRU 0,176-a: DRRU 
1/2 


■12,12,P 
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9050 DRRLI a-256,0: DRRU -12,-12, 
PI/2 

9060 DRRU 0,a -176 : DRRU 12,-12,P 

1/2 

9070 NEXT a 

9080 FOR a=2 TO 6: PRINT RT a,15 
; " ; RT a + 13,15; " " : NEXT a 

9090 FOR a=10 TO 12: PRINT RT a, 
2, " ",RT a,25, " ": NEXT 

a 

9100 REM auto 

9110 DRTR 231,66,255.255,255,255 
,66.231 

9120 DRTR 189,255,1S9.60,60.189. 
255.189 

9130 DRTR 36,90,189,126,126,189, 
90,36 

914.0 RESTORE 9100 

9150 FOR a =0 TO 23: RERD b: POKE 
U5R "a"+3,6: NEXT a 
9160 LET hi=0 


9200 REM valori 
9210 LET y X = 15 : 

= 1: LET nyx =yx: 
y$=CHR$ 144: LET 
9220 LET ex=16: 
=7 : L ET n C X = C X : 

C $=CHR$ 144: LET 
9230 LET lap =0 : 


partenza 
yy=l: LET yt 
nyy=yy: LET 
=0 


LET cy=7: LET et 
LET ncy=ey: LET 
e f =0 


PRINT RT 9,12;" 


9240 INPUT "Di f fi CO Ita ' (1-9'? " 

; s 

9999 RETURN 


100 Subroutine per disegnare le piste, predisposizione dei ca¬ 

ratteri e dei valori di partenza. 

200-430 Loop principale del programma. 

200-230 Calcola la nuova posizione della vostra auto. 

240 Esplora i tasti “I” e “O” stabilendo di conseguenza il movi¬ 
mento del flag “yf”. 

250 Sposta la vostra auto da una pista alia successiva se 

yf< >0. 

260 Abbandona alla collisione con l’avversario. 

300-330 Calcola la nuova posizione dell’auto guidata dallo Spe- 
ctrum. 

340 Muove il flag “cf” se lo Spectrum decide di cambiare pista. 

350 Sposta l’auto dello Spectrum da una pista alla successiva 

se cf< >0. 
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400-410 

420 

430 

500-540 

9000 

9200 

yx.yy 

yt 

cx,cy,ct 

nyx.nyy 

ncx.ncy 

yf.cf 


Cancella il vecchio disegno delle due auto e aggiorna le 
coordinate. 

Aggiorna il numero dei giri. 

Salta alla linea 200 se l’auto avversaria non vi ha centrato. 
Fine della routine; aggiorna il record se lo avete migliorato e 
vi invita ad una nuova gara. 

Subroutine di preparazione alla corsa. 

Subroutine per la posizione di partenza di un’altra gara. 
Coordinate x e y della vostra auto. 

Numero della vostra pista: la pista 1 è all’esterno e le altre 
sono numerate 3, 5, 7, verso l’interno. 

Coordinate e numero della pista dell'auto avversaria. 
Valori successivi di yx e yy. 

Valori successivi di ex e cy. 

Flags posti a +2 o —2 quando l’auto cambia pista. 
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3D 


Questo programma elabora grafici tridimensionali, che vi potranno 
essere presentati sotto qualsiasi angolazione e di cui potrete variare le 
dimensioni e ricavare la prospettiva. 

Ciascun grafico è composto da segmenti rettilinei (numero massimo 
400) le cui coordinate delle estremità x, y e z, sono contenute in una 
matrice, che può essere memorizzata o letta separatamente su nastro. 
Il programma è suddiviso in un certo numero di moduli, selezionati dal 
“menu” principale, e comprende subroutine e funzioni definite dall’u¬ 
tente per raggiungere gli scopi desiderati. 

Quando si dà il RUN al programma, viene innanzitutto presentato il 
menù principale. 

Premere il tasto : 


P-Per 

visualizzare i dati 

I-Per 

inserire 

i 

dat. i 

L-Per 

caricare 

i 

dati 

P-Per 

scrivere 

i 

dati 

Gi-Per 

lasciare 



S-Per 

registrare 


V-Per 

mostrare 




L’opzione D vi chiederà a partire da quale segmento vorrete che i da¬ 
ti vengano visualizzati, le linee usate per comporre il grafico sono nu¬ 
merate da 1 a 400. Il programma presenterà poi le coordinate x, y e z 
per ciascuna delle estremità di 17 segmenti consecutivi e vi chiederà 
se ne volete vedere altri oppure tornare al menù principale. 

L’opzione I permette di aggiungere nuovi dati, o di modificare quelli 
esistenti. Per ogni segmento del grafico, sarà necessario impostare: 

— il numero di riga (intero da 1 a 400); 
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— le coordinate x, y e z per una estremità; 

— le coordinate x, y e z per l'altra estremità. 

Ogni valore delle coordinate deve essere un intero compreso tra 
—100 e 100. I sette numeri sono impostati su di una singola riga e i di¬ 
versi valori vanno separati da spazi. Se uno qualsiasi dei valori imposta¬ 
ti non risultasse valido, il programma ignora l’intera riga e si pone in at¬ 
tesa che vengano inseriti i dati idonei. I valori accettati verranno poi 
presentati sullo schermo ed il cursore si sposterà a capo per la defini¬ 
zione di un nuovo segmento. Potrete continuare l’impostazione in tale 
modo, oppure tornare al programma principale battendo una riga vuota 
(quindi premendo semplicemente ENTER). L’ordine dei segmenti non 
ha alcuna importanza e i vecchi valori possono essere sostituiti batten¬ 
do una nuova linea con lo stesso numero. 

L’opzione L vi permette di caricare un file di dati da nastro, cancel¬ 
lando tutti tutti i dati precedentemente contenuti nel computer. Una vol¬ 
ta che il file è stato caricato, lo potrete verificare: se il controllo dà esito 
negativo, il programma si arresterà e potrà venir fatto ripartire sola¬ 
mente dando un GO TO 1000. 

L’opzione P permette di ottenere la stampa di un certo blocco di 
segmenti per mezzo della stampante. Il programma, in questo caso, 
richiede il primo e l’ultimo numero dei segmenti componenti il blocco 
da stampare, i quali andranno inseriti su di una stessa riga, separati da 
uno spazio. 

L’opzione Q arresta il programma, che potrà essere fatto ripartire 
con GO TO 1000 conservando i dati o con RUN cancellandoli. 

L’opzione S registra i dati sotto un nome di file, il quale, come tutti i 
nomi di file relativi allo Spectrum, non dovrà eccedere i dieci caratteri. 
A registrazione avvenuta, il programma vi consiglierà la verifica per ve¬ 
dere se tutto è stato eseguito correttamente. In caso negativo, fate ri¬ 
partire il tutto col solito GOTO 1000 per conservare i dati in memoria. 

Per registrare il programma vero e proprio, e non i dati, è necessario 
bloccarlo (usando l’ozpione Q, oppure premendo CAPS/SHIFT e 6, se il 
programma stesso è in attesa dell’impostazione dei dati). 

Dare CLEAR per cancellare le matrici di dati e tutte le altre variabili, 
per ridurre il tempo di save e, successivamente, di load del program¬ 
ma. 
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L’opzione V permette infine di osservare il grafico. Per fare ciò, il 
programma vi chiede 

— i numeri del primo e dell’ultimo segmento del blocco che volete vi¬ 
sualizzare; 

— un fattore di "scala” sottoforma di un numero intero, compreso tra 1 
e 999, che determina le dimensioni del grafico (per iniziare, è meglio 
impostare 50); 

— la rotazione orizzontale in gradi: numero intero tra 0 e 360; 

— la rotazione verticale, sempre in gradi e sempre come numero intero 
tra 0 e 360; 

— un valore di profondità (intero tra 0 e 9). 

Quest’ultimo valore determina la profondità di prospetto: la cifra 0 
non dà alcun effetto, mentre la vista migliore si ottiene con i valori 3 o 
4. Ripetiamo che i valori devono essere impostati tutti su di una stessa 
riga e separati da uno spazio. Se anche uno solo dei dati non risulta ido¬ 
neo, il programma ignora l’intera riga ed attende dati corretti. Il grafico 
è basato sui dati relativi al blocco di segmenti preso in considerazione, 
per cui potrete registrare sotto un solo file i dati riguardanti più di un 
grafico, oppure visualizzare solo una parte del disegno con dimensioni 
maggiorate. Se il grafico supera la grandezza dello schermo, il pro¬ 
gramma si blocca e per farlo ripartire dovrete usare GO TO 1000. A la¬ 
voro eseguito, il programma vi chiederà se volete stamparlo su carta 
per mezzo della stampante. 


100 LET Hi t =400 

110 DIM pttll .6) : DIM Z*i6) 

130 LET t$ = " LINE Xl yl Zi X2 y 
a z s " 

1000 REM Menu principale 

1010 CLS : PRINT RT 5,7;"Premi i 

l tasto;”'-' 

1020 PRINT TRB 3;”D-dispLay dati 

1030 PRINT TRB 8 ;”I~input dati” 
1040 PRINT TRB 3;"L-caficamento 
dati” 

1050 PRINT TRB 8;”P-print dati” 
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1060 PRINT TRB 3;"Q-lasciare" 
1070 PRINT TRB 8;"S-save dati" 
1080 PRINT TRB 8; "U?ViSUaliZZ3Z i 
one " 


1100 

1110 

1130 

1130 

114.0 

1150 

1160 

1170 

1300 


LET K* = 
IF K.$: 


IF 

IF 

IF 

IF 

IF 

IF 

CLS 


K* = 
K$ = 
K$ = ' 


FN 

D" 

I" 

L" 

P" 

S" 


a* (INKEY$) 
THEN 60 TO 


THEN 
THEN 
THEN 
THEN 
K$="U" THEN 
THEN 
PRINT RT 


60 TO 
60 TO 
60 TO 
60 TO 
60 TO 
60 TO 


3000 

3000 

4-000 

5000 

6000 

7000 

1100 


, 0; FLRSH 1 


PR06RRMMR FINITO 
1310 PRINT ""Per ripartire 


eri te 


10,5;"RUN (cariceli 

60 TO 1000";TRB 5 
dati)" 


dati 

RT 10,5;"Da l la 


1230 PRINT RT 
a i dati)" 

1330 PRINT "0 
; " (conserva i 
124.0 5T0P 
2000 REH Display 
3010 CLS : PRINT 
linea ?" 

2030 60 SUB 8100: LET l=i: IF l< 
1 OR Dinl THEN 60 TO 3030 
2100 CLS : PRINT t$ 

2110 FOR a = l TO 1+16: IF a >llì l TH 
EN 60 TO 2300 

2120 PRINT "a;: IF p*ia)=Z* THEN 
60 TO 3140 

2130 FOR b=l TO 6: PRINT TRB 1+4 
*b;CODE p$ (a,b) -133; : NEXT b 
2140 NEXT a 

2300 PRINT ''"Ancora (Y/N) ?" 
2310 LET K. $ =FN a$(INK.EY$) 

2220 IF li. $<>“N" AND K $ < > " Y" THEN 


60 TO 2210 

2230 IF K $ = " N " OR a>rfil THEN 60 T 
0 1000 

2240 LET l=a: 60 TO 2100 

3000 REM input dati 

3010 CLS : PRINT "Batti il nuriier 

o di i inea , segu i to dai dati x,y 

& z per il primo punto,poi 

i dati x.y & z per il secondo pu 

nto. Tutte le voci separate 


3020^PRINT '"Oppure premi ENTER 
per tornare al menu principale" 


' t$ 

3100 INPUT LINE i$ : IF iS = "" THE 
N 60 TO 1000 

3110 60 SUB 8000: LET l=i: IF l< 
1 OR l>ml THEN 60 TO 3100 
3120 FOR a=l TO 6 

3130 60 SUB 8000: IF RBS i>100 T 
HEN 60 TO 3100 

3140 LET p$,€l ,a) =CHR* (133 + i) 
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3150 NEXT a 

3160 POKE 33692,0: P R I NT ' L , 

3170 FOR a = l TO 6: PRINT TRE 2 + 4. 
*a,CODE p $ ( L,a) -133; : NEXT a 
3130 OC Tu 3100 

4.000 REM carica i dati dat nastr 
o 

4.010 CLS : PRINT RT 5.0; “Nome de 
i. data f i te 7" CHR$ 8; 

4020 INPUT LINE i$ : PRINT i$ 

4O30 LORD i$ DRTR P$H 

4040 INPUT "Verifica (Y/N)? L 

INE a $ 

4050 IF at="N" OR a*="n" THEN GO 
TO 1000 

4060 IF a$o"Y" RND a$o"y" THEN 
GO TO 4040 

4070 PRINT "Nuovamente play pe 
r verificare" 

4030 UERIFY i$ DRTR p$0 
4090 GO TO 1000 
5080 REM Scrivi i dati 
5010 GO SUB 3200 
5020 PRINT 't$ 

5030 FOR a*Ll TO 12: LPRINT 'a;: 

IF P $(a 1 =Z $ THEN GO TO 5050 
5040 FOR b = l TO 6: LPRINT TRB 2+ 
4*b;C0DE p$ (a,b) -133; : NEXT b 
5050 NEXT a 
5060 LPRINT 
5O80 GO TO 1000 
6000 rem save data 
6010 CLS : PRINT RT 5,0;"Nome de 
l data file ?" ;CHR$ 3; 

6020 INPUT LINE i*: IF i$="" THE 
N GO TO 6020 

6030 IF LEN i$>10 THEN LET i*=i$ 
< TO 10) 

6040 PRINT i$ 

6050 SfìUE i$ DRTR p$() 

6060 PRINT '"Registra per ve r i f i 
care" 

607O print '"Se La verifica si b 
Locca.iL p rogramma si ferma"''"U 
sa GO TO 1000 per ricuperare.""" 
non RUN" 

6080 UERIFY i$ DRTR p$<) 

6090 GO TO 1000 

7000 REM Uista disegno 

7010 CLS . PRINT RT 5.0;"Inseris 

ci; 

7O20 PRINT TRB 4;"Numero deLLa p 
rima Li nea",TRB 4;"Numero deLL'u 
L tim a Linea" 

7030 PRINT TRB 4;"Fattore di sca 
La ( 1-999) " 

7040 PRINT TRB 4;"Rotazione ori: 
zontate (0-360)" 
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7050 print TfiB 4; "Ro taz i one vert 

1 ca le (0-360) " 

7060 PRINT TRE 4; "Pro fondita ' (0 

- 9 ) " 

7070 PRINT '"Separati da spazi" 
7100 GO SUB 8100: LET Ll=i: IF L 
1<1 OR L1 >m L THEN GO TO 7100 
7110 GO SUB 8000; LET L2=i: IF L 

2 < L1 OR 12 > r« L THEN GO TO 7100 
7120 GO SUB 8000: LET S=i/100: I 
F s . 01 OR s >9.9 THEN GO TO 7100 
7130 GO SUB 8000: LET hf=i: IF h 
r<0 OR h r> 360 THEN GO TO 7100 
7140 GO SUB 8000: LET Vf=i: IF V 
r<0 OR v r>360 THEN GO TO 7100 
7150 GO SUB 8000: LET d =i : IF d< 
0 OR d >9 THEN GO TO 7100 

7200 CLS 

7210 LET Ch=005 <hr*P1/180): LET 
Sh=SIN (h i" *PI/180) 

7220 LET CV=005 (vr*PI/180): LET 
s v = 51N ( v f tF'I /180 j 
7300 FOR L = L1 TO L2: IF p$(U =Z$ 
THEN GO TO 7400 

7310 LET X1= FN b(l): LET y1=FN b 
(2) : LET Z1=FN b (3 > 

7320 LET X2 = FN b i 4 ) : LET y 2 = FN b 
(5) : LET Z2 =FN b L6) 

7330 LET XXl = Xl*Ch-yl*Sh: LET xx 
2 =x 2 *c h-y2*sh 

7340 LET yyl=yl*ch+xl*sh: LET yy 
2=y2*ch +X2*sh 

7350 LET yylsyyltcv-ZliSV: LET y 
y2=yy2*cv -z2*sv 

7360 LET ZZ1=Z1*C V+yy 1*S V : LET Z 
z2=z2*cv+yy2*sv 

7370 LET p=l+d*ZZ 1/1000: LET XX 1 

=xxl *p : LET yyi=yyi*p 

7380 LET p = l+d *ZZ2/1000 : LET XX 2 

= xx2*p : LET yy2=yy2*P 

7390 PLOT XX 1 + 127,yy1+87: DRRU X 

x2-xxi,yy2-yy1 

7400 NEXT t 

7410 INPUT "Stampa rv/Ni ? LI 
NE i $ 

7420 IF i$="y" OR i$="Y" THEN CO 
PY GO TO 1000 

7430 IF i$="n" OR i$="N" THEN GO 
TO 1000 

7440 GO TO 7410 

8000 REM Converti il primo numer 
o in i$ da i,corto i$ 

8010 LET sgn=l 

3020 LET i=0 : IF i$ = "" OR i$ = " " 
THEN RETURN 

8030 IF i$(l)<>"-" AND (i$«l)<"0 
" OR i$ ( 1 i >"9") THEN LET i$ = i$(2 
TO ): GO TO 8020 
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804.0 IF i$il)="-" THEN LET sgn = - 
1: LET i$=i$< £ Tu ): 60 TO 8020 

8050 FOR C=1 TO LEN i$: LET C$=i 

$ CO 

8060 IF C $ < " 0 " OR C$>"9" THEN GO 
TO 3080 
8070 NEXT C 

8080 LET i=sgn*URL i$i TO C-l): 
LET i$=i$CC TO ) 

8090 RETURN 

3100 REM input lì., Cài I. 8000 
8110 INPUT LINE i$: GO TO 8000 
8200 REM Stabi Lisci La prima e L 
'ultima Linea Li •*< 12 
8210 GL5 : PRINT hT 10.0; "In se ri 
sci iL primo e l 'u 11imo n u mero d 
i Linea separati da uno spazio.;" 
3220 INPUT LINE i$: GO SUB 8000: 
LET Ll=i 

3280 IF L1 < 1 OR ll>Aìl THEN GO TO 
8200 

8240 GO SUB 8000: LET 12=i 
8250 IF 12 <1 OR 12 >iìii l THEN 60 TO 
8200 

8260 RETURN 

9000 DEF FN a$ia$)=CHR$ (CODE 3$ 
- (32 AND CODE a$>96)) 

9100 DEF FN b CZ) = CCODE p $ Cl.Z ) -1 
33) *S 


1000-1170 Presentazione del menù principale, scelta dell’operatore e 
salto al blocco selezionato. 

1200-1240 Lascia il blocco, il display avverte dell’arresto. 

2000-2240 Display del blocco dati. 

2010-2030 Accetta il primo numero di linea, lo controlla, cancella lo 
schermo e scrive il titolo t$. 

2110-2140 Loop eseguito 17 volte per visualizzare altrettante linee. 

2120-2130 Display del numero di linea e dei 6 dati se esistono. 

2200-2240 Chiede all’operatore se vuol vedere altre linee o se vuol tor¬ 
nare ai menù principale. 

3000-3180 Blocco introduzione dei dati. 

3010-3020 Visualizzazione delle istruzioni e del titolo t$. 

3100-3180 Loop eseguito per ogni linea. 

3100 Accetta la stringa di input dall’operatore. Se è vuota, torna 
al menù principale. 

3110 Preleva il numero di linea dalla stringa e lo controlla. 
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3120-3150 Preleva col loop le 6 coordinate dalla stringa, le controlla e 
le sistema nell’array “p”. 

3160-3180 Mostra il numero di linea e le 6 coordinate (eseguendo se 
necessario lo scroll dello schermo), quindi torna per il nu¬ 
mero successivo. 

4000-4090 Carica il blocco dati. Accetta dall’operatore il nome del file, 
lo mostra, carica l’array p$() verificandolo se richiesto e 
torna al menù principale. 

5000-5080 Scrive il blocco dati. 

5010-5020 Prende il primo e l’ultimo numero di linea (11 e 12) del bloc¬ 
co dati presentato. Scrive il titolo t$. 

5030-5050 Loop eseguito per scrivere in successione le linee da 11 a 
12. Non scrive le coordinate se nella linea non è presente 
alcun dato. 

5040 Loop per disegnare le 6 coordinate della linea. 

5060-5080 Disegna le linee e torna al menù. 

6000-6090 Registra il blocco dati. 

6010-6040 Chiede il nome del file, non accetta la stringa nulla e consi¬ 
dera solo i primi dieci caratteri. Visualizza il nome. 

6050-6090 Registra su nastro l’array p$() ed esegue la verifica prima 
di tornare al menù. 

7000-7440 Presenta il blocco. 

7010-7150 Accetta dall’operatore il primo numero di linea, l’ultimo, i 
fattori di scala, di rotazione, di profondità e quindi li testa. 

7200-7220 Cancella lo schermo e calcola i valori necessari. 

7300-7400 Loop eseguito ad ogni disegno della linea. 

7310-7320 Estrae da p$() le 6 coordinate per la linea. 

7330-7340 Calcola le coordinate per permettere la rotazione orizzon¬ 
tale. 

7350-7360 Permette la rotazione verticale. 

7370-7380 Funzione per dare l’effetto profondità. 

7390 Disegna la linea sullo schermo. 

741 0-7440 Stampa la hard copy se richiesto e torna al menù principale. 

8000-8090 Subroutine che verifica se in i$ c’è un numero intero; dà il 
valore a "i” e toglie il numero da i$. “i” porta il valore 0 se in 
i$ non è stato trovato alcun numero. I successivi valori di i$ 
vengono estratti ripetendo la chiamata continuamente. 
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8100 Subroutine che accetta dall’operatore la stringa di input (i$) 
e ne estrae il primo valore usando la linea 8000. 

8200 La subroutine chiede all’operatore di inserire i due valori dei 
numeri di linea (11 e 12), quindi li controlla per vedere se 
sono idonei. 

9000 Definizione del carattere. 

9100 Estrazione dali’array dati del valore della coordinata z 
(z=da 1 a 16) della linea “I”. 

I dati sono accatastati nell’array di caratteri p$ (400,6) e ogni carattere 

fa riferimento ad una coordinata in base alla formula: 

p*< L, fl )«CHR*< valore coord +133,' 


Ciò permette di far lavorare il programma con valori interi da —100 a 
+100 e non con caratteri tipo “spazio” (codice 32), usato per segnala¬ 
re la mancanza dati. Le dimensioni dell’array si adattano anche allo 
Spectrum da 16 K. In quello da 48 K potete aggiungere altre 400 linee, 
cambiando la variabile “mi” (linea massima) presente alla linea 100 ed 
attribuendole valori fino a 5800! 
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P C«) G.HO CO CO fO 10/0 IO IO IO il) fOlU/U*-»!- 1 h*Hh i b*b i h‘b i t-*l£iO)-J0‘(/lf*CJIl'i 
3 f-QfOH'©tr>ai->iaiw^c;iiOH'GMDoi) %ia>tnf-QroH'G> 


Elenco dei valori per lo Shuttle. 


; xi 

y i 

Zi 

x2 

y2 

1 2 

-90 

0 

0 

-30 

0 

15 

-90 

0 

0 

-80 

0 

-15 

-90 

0 

0 

-30 

-15 

0 

-90 

0 

0 

-80 

15 

0 

-30 

15 

0 

-40 

30 

0 

-80 

-15 

0 

-40 

-30 

0 

-80 

0 

-15 

-40 

0 

-30 

-80 

0 

15 

-40 

0 

30 

-4.0 

30 

0 

50 

30 

0 

-4-0 

-30 

0 

50 

-30 

0 

-4-0 

0 

30 

50 

0 

30 

-4.0 

0 

-30 

90 

0 

-30 

-20 

30 

0 

30 

50 

0 

-20 

-30 

0 

30 

-50 

0 

30 

50 

0 

90 

90 

0 

30 

-50 

0 

90 

-90 

0 

90 

90 

0 

90 

40 

0 

90 

-90 

0 

90 

-40 

0 

98 

4.0 

0 

90 

30 

-20 

90 

40 

0 

90 

30 

20 

90 

-40 

0 

90 

-30 

20 

Q0 

-40 

0 

90 

-30 

-20 

90 

40 

0 

50 

30 

0 

90 

-40 

0 

50 

-30 

0 

50 

0 

30 

90 

0 

90 

90 

0 

90 

90 

0 

48 

50 

0 

30 

90 

0 

48 

90 

0 

40 

90 

-20 

30 

90 

0 

40 

90 

20 

30 

90 

20 

30 

90 

30 

20 

90 

-20 

30 

90 

-30 

20 

90 

20 

-30 

90 

30 

-20 

90 

-20 

-30 

90 

-30 

-20 

90 

-20 

-30 

90 

20 

-30 


cora (S/N) ? 
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LABIRINTO 



Questo programma genera un labirinto la cui struttura è casuale e 
nel quale voi dovete cercare la via d’uscita. Il labirinto è costruito su di 
una griglia a scacchi di cui potete scegliere le dimensioni, entro la 
gamma 3x3/30x2. I movimenti all'interno del labirinto si effettuano con 
i tasti: 

F — per muovere avanti di un quadretto, se il muro non si trova pro¬ 
prio di fronte. 

L/R — per voltarsi a sinistra o a destra. 

A — per voltarsi indietro. 

Per un più agevole orientamento, contemporaneamente ai corridoi, il 
display mostra anche i punti cardinali e il numero delle mosse eseguite. 
Se vi siete persi, ricorrete al tasto H il quale presenterà la pianta del la¬ 
birinto con il punto in cui siete e la direzione che avete. Ogni aiuto di 
questo genere, vi costerà, però, una punizione di 50 mosse. L’uscita è 
indicata da due grosse diagonali incrociate. 



N 

O t E 
S 


MOSSO 

329 
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1000 REM Formazione e presentazi 
one dei labirinto 

1010 RANDOMIZE : INK 0: PAPER ?: 

FLASH 0: 6RIGHT 0: OUER 0: INUE 
R5E 0: BORDER 7 
1020 GO SUB 9100 

1030 INPUT "DIMENSIONI DEL LABIR 
INTu ; X (3-30) ";mx;TAB 12;" Y 

(3-20) ";my 

1040 LET rii X = INT «IX : IF i»X<3 OR rii 

X >30 THEN GO TO 1030 

1050 LET my=INT my : IF my<3 OR m 

y >20 THEN GO TO 1030 

1060 LET ri)ove =0 

2000 REM Costruzione dei labirin 
to 

2010 FOR a=l TO lilX+1: PLOT S*a-1 
,167: DRAU 0,~S*my: NEXT a 
2020 FOR a =1 TO my+1: PLOT 7,175 
-3*a: DRAU 8*mx,0: NEXT a 


2030 LET X = 1 : LET y=INT (l+rny/4 + 
RNDSMy/2): PRINT AT y,0;">" 

2040 PLOT S,S *y-1 : DRAU INUERSE 

1 ; 0 , 7 

2050 PRINT AT y,x; PAPER 6; OUER 

1 ;" " 


2060 LET d X =1: LET dy=0 

2070 LET yourx=X: LET youry=y: L 


ET d=0 


2100 IF RND >.1 AND dy=© THEN LET 
dy = INT (2*RND)*2-1: LET dx=0 


21Ì0 IF RND >.S OR y+dy>my OR y+d 
y<1 THEN LET dX=l: LET dy=0 
2120 GO SUB 2000 
2130 IF X < =D'iX THEN GO TO 2100 
2140 PRINT AT y,x;">": LET x=x-l 
2200 LET ny=y+dy: LET nx=x+dx 
2210 if rnd>. 4 AND ny<=my AND ny 
>=1 AND nx < =(iiX AND nx>=l THEN IF 
ATTR (ny,nx)=56 THEN GO TO 2290 
2220 LET U=0: DIM u(4,2) 


2230 IF x < h) X THEN IF ATTR (y,X+l 
) =56 THEN LET u =U + 1 : LET U (U , 1) = 
1 

2240 IF x>l THEN IF ATTR (y,x-l) 
=56 THEN LET U=U+1: LET U(U,1)=- 
1 

2250 IF y < h)y THEN IF ATTR (y+l,x 
) =56 THEN LET U=U + 1: LET U(U,2) = 
1 


2260 IF y >1 THEN IF ATTR (y-l.x) 
=56 THEN LET U=U+1: LET U(U.2)=- 
1 

2270 IF u=0 THEN GO TO 2300 
2280 LET U =INT (l+u*RND) : LET dx 
=u (u , 1 ) : LET dy=u(u.2) 

2290 GO SUB 9000: GO TO 2200 
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£300 PRINT AT y X ; PAPER 5; OUER 

i; " " 

£310 LET CX=8*X+3: LET cy=171-3* 
y 

£3£0 IF PQINT Ccx+4,cy)=0 THEN I 
F RTTR (y , X +1 ) =4-8 THEN LET X=X + 1 
GO TO ££20 

£330 IF POINT (Cx -4 , cy! s0 THEN I 
F RTTR (y , X -1) =48 THEN LET X=X-1 
GO TO £££0 

£340 IF POINT < CX ,Cy-4) =0 THEN I 
F RTTR (y + 1, X ) =48 THEN LET y=y+l 
GO TO £££0 

£350 IF POINT ( CX , Cy +4) =0 THEN I 
F RTTR iy -1 ,X) =48 THEN LET U=y-1 
GO TO ££20 

2400 FOR Z=1 TO mx*my/10 

£410 LET X = £ + INT i (niX -2) *RND) : L 

ET y=2 + INT ( (ttu-2) sRND) 

£4£0 LET dX =2*INT <£*RND)-1: LET 
dy =0 

£430 IF RND >.S THEN LET dy=2*INT 
Ì2*RND)-1: LET dX=0 
£440 GO SUB 9000 
2450 NEXT Z 

3000 REM Disegno del labirinto a 
m $ ( ) 

3010 INPUT "Premi ENTER per comi 
nei are "; LINE i$ 

3020 dim m 1 1m y +2.mx+£) 

3030 POKE 23606,PEEK 23675: POKE 
£3607,PEEK 23676-1 
3040 FOR y=0 TO my+1: FOR X =0 TO 
m x +1 

3050 LET fiì $ (y + 1, x +1) =5CREEN$ (y , 
x ) ; PRINT RT y ,x; " " 

3060 NEXT X : NEXT y 
3070 POKE 23606,0: POKE £3607,60 
4000 rem Movimento attraverso il 
labirinto 

4010 GL5 : LET pi=87: LET p=80: 
LET x =yourx: LET y =y ou ry 
4020 PRINT RT 4,29;"N";RT 6,27.;" 
O " ; CHR$ ( 149+d ) " E".;At 8,29; "S 

4030 LET move=move+l: PRINT RT 1 

2,27;"MOSSfi";TRB 23;move 

4040 PRINT RT 4,0;"A-lnd"'"F-fiva 

.L -Si n " ' "R-Des " ■' ' "H-Ri U " 

4100 FOR Z = 1 TO 20 
4110 PLOT 127-p , 87 -p: DRRU 0,£*P 
: PLOT 127 +p ,87-p : DRRU 0,2*p 
4120 LET C =CODE m$ (y+1,X + 1) : LET 
w=CODE m $ ( y +1,x) : LET s =CODE m $ 
iy +2 , X +1) 

4130 IF d = 0 THEN LET wr=(S=33) + ( 
S=35): LET wl= ( c=33) + i C=35) : LET 
W f = i C =380 + ( C =34) 
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414.0 IF d =1 THEN LET w r = Cui =33) + C 
w =34 » : LET W l = CC=33 » + tC=34) : LET 
w f = (s=33) +(S=35) 

4150 IF d =2 THEN LET u» f = C C =33) + ( 
C =35) : LET Wl=CS=33)+<S=35): LET 
W f=Cw =33) +(W=34) 

4160 IF d =3 THEN LET wf=«C=33) + « 
C =34) : LET W l =Cw=33) +CW=34) : LET 
wf = (c=33) + <c =35) 

4170 IF Z = 1 THEN LET fw=wf 
4200 LET d p = P 1 -P : LET du>f=dp AND 
W r: LET dwt=dp AND wl 
4210 LET e f =NOT W f AND (Cd =3 RND 
X =riì X ) OR Cd =1 AND X = 1 ) ) 

4220 LET el=NOT wl RND (Cd=3 RND 
X =1) OR Cd =1 RND X =rnx)) 

4230 IF NOT er THEN PLOT 127+p.S 
7 -p : DRRU dp.-dwr: PLOT 127+P..87 
+p: DRRU dp.dwr 

4240 IF NOT e i. THEN PLOT 127-P.. 3 
7-P : DRRU -dp , -dui L : PLOT 127-p .,8 
7+p: DRRU -dp,dwl 

4250 IF er THEN PLOT 127+P,87+p: 

DRRU dp,-C2*P+dp): PLOT 127+P.8 
7 -p : DRRU dp.2*p+dp 
4260 IF ÈL THEN PLOT 127-P.. 87+p : 

DRRU -dP,- (2*p+dp) : PLOT 127-p, 
87-p: DRRU -dp.2*p+dp 
4270 IF Wf THEN PLOT 127-p ,.87-p: 

DRRU 2*p,0: PLOT 127-p.87+p: DR 
RU 2*p.0: GO TO 5000 
4300 IF Cd =0 RND X=nìX) OR Cd =2 fl 
ND X = 1 ) THEN LET pd = .9*p: PLOT 1 
27-p d,87-P d: DRRU 2*pd,2*pd: PLO 
T 127—pdj87+pd: DRRU 2*pd,-2#Pd: 
60 TO 5000 

4310 LET X=X+Cd=0) - Cd=2) : LET y = 
y + (d =1) -Cd = 3) : LET pl=P: LET P = I 
NT C.8*p) 

4320 NEXT Z 

5000 REM Movimento giocatori 
5010 LET K$ = INKEY$ : IF K. $>"Z" TH 
EN LET k$ = CHR$ (CODE k$-32) 

5020 IF k $ < > " H " RND K. $ O " L" RND 
K $ < > "R" RND k$<>"R" RND K. $<>"F" 
THEN GO TO 5000 

5030 IF K. $ = "H" THEN GO TO 6000 

5040 IF K $="F" THEN GO TO 5100 

5050 IF K. $ = "L" THEN LET d=d-l: I 

F d <0 THEN LET d=3 

5060 IF KS = ,, R" THEN LET d=d+l 

5070 IF K $="R" THEN LET d=d+2 

5030 IF d >3 THEN LET d=d-4 

5090 GO TO 4000 

5100 IF fui THEN GO TO 5000 

5110 IF y o U r x =1 RND d=2 THEN PRI 

NT RT 10,11; FLASH 1INGRESSO"; 

RT 11.11;" CHIUSO ": GO TO 5000 
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51£0 IF yourx=niX AND d =0 THEN GO 
TG 7000 

5130 LET you f x=you rX+ id=0)-(d=2 > 
LET y o u r y =y o u r y + i d = 1 ) - ( d =3 j 
514-0 GO Tu 4-000 

6000 REM Presentazione dei tabir 
in to con posisione aggio rna ta 
6010 CL5 : POKE 23606,PEEK 23675 
POKE 23607. PEEK £3676-1 
6020 LET x P = INT ( (30-ni X ) /2) : LET 
y p = INT ( C 20 -rii y ) /£ ) 

6Ò30 FOR y=l TO my+2: PRINT AT y 
P +y -1x p ; rn $ < y ) . NEXT y 
604-0 POKE £3606,0: POKE 23607,60 
6050 LET rii 0 V 6 = rii 0 V e + 50 : PRINT 0UE 
R 1 ,hT 0,6:"PUNIZIONE DI 50 MOSS 
E" 

6060 PRINT RT yp+y ou ru . xp +y ou rx; 

OUER 1 : CHR$ (14-9+d) 

6070 INPUT “Prern i ENTER per torri 
are ai Labirinto "; LINE i$ 

6060 GO TO 4000 
7000 REM Fina Le 
7010 PRF'ER 5: CLS 

7020 PRINT RT 8,11; “FUORI DOPO" ,; 
RT 10,14; ni ove ; RT 12,13; "MOSSE" 
7030 DRTfi 0.5,9,5,9.12,9,12.15.1 
5 

7040 FOR t=l TO 3: RESTORE 7000 
7050 FOR a =1 TO 10: READ b: BEEP 
.05,b: NEXT a 
7060 NEXT t: PAPER 7 
7070 STOP 

9000 REM Distruzione dei ni u r o a 
x +d x,y+dy 

9010 IF dy=0 THEN PLOT 8*(X+idx = 
1) ) -1,167-S*y : DRRL-.I INUERSE 1,0, 

9020 IF dx =0 THEN PLOT 3*x-l,175 
-S* (y + (dy =1M : DRRU INUERSE 1 ; 7, 
0 

9030 LET x = x + dx: LET y=y+dy 
9040 PRINT RT y,x; PAPER 6, OUER 

1 ; " " 

9060 RETURN 
9100 REM user 
9110 DATA 0.0.0,0.0.0,0.0 
9120 DATA 255,1,1,1,1 . 1.1 . 1 
9130 DATA 1,1,1,1,1,1.1.1 
9140 DATA 255,0,0,0,0.0.0,0 
9150 DATA 1.0,0,0,0.0.0.0 
9160 DATA 0,0,0,S,124 ; 3,0,0 
9170 DATA 0,0,16,16,16,56.16.0 
9180 DATA 0,0,0,32,124,32,0,0 
9190 DATA 0,0,16.56.16.16,16.0 
9200 RESTORE 9100 

9210 FOR a =0 TO 71: READ b: POKE 
USR "a"+a,b: NEXT a 
9220 RETURN 
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La struttura generale del programma è assai semplice, la sua note¬ 
vole lunghezza è dovuta alla necessità di fornire diverse possibilità per 
la costruzione del labirinto e per il tracciato dei suoi corridoi. Si usano 
due subroutine, la prima per creare la configurazione del labirinto, la 
seconda, fuori dal programma principale, per disegnare i caratteri gra¬ 
fici durante il gioco. 

1000-1060 Accetta le dimensioni del labirinto e ne controlla la validità. 
2000-2450 Costruzione del labirinto. 

2110-2020 Disegna una griglia completa di quadretti. 

2030-2070 Apre un punto d’ingresso dalla parte sinistra della griglia. 
2100-2130 Traccia un percorso random, cancellando tratti di muro fino 
a raggiungere il lato destro della griglia. Il percorso è colo¬ 
rato in giallo per farsi riconoscere in seguito dal program¬ 
ma. 

2140 Stabilisce l’uscita. 

2200-2350 II programma ricalca il percorso in giallo, aggiungendo altri 
tracciati, dove può, fino a raggiungere l’uscita. 

2200-2210 Colora in bianco le zone circostanti, se il quadrato seguente 
non è stato esplorato (ATTR=56, bianco). 

2220-2280 Cerca un quadrato adiacente libero e se non ve ne sono, 
salta alla linea 2300. 

2290 Toglie il muro e colora il quadrato di giallo. 

2300 Non potendo estendere oltre il tracciato in quella direzione, 
colora il quadretto di ciano. 

2310-2350 Trova quale dei quattro quadretti circostanti sia il prossimo 
del percorso (ATTR=48, giallo), quindi avanza di uno o tor¬ 
na alla linea 2230. 

2410-2450 Confonde il percorso aprendo altri varchi a caso. 
3000-3070 Copia dallo schermo il labirinto definitivo e lo memorizza in 
m$( ). I primi 5 caratteri (vedere 9100) sono quelli neces¬ 
sari al disegno del labirinto. 

4000-4040 Scrive la bussola, la lista dei comandi e il numero delle 
mosse. 

4100-4320 Disegna la veduta tridimensionale. Il loop dalla linea 4100 
alla 4320, limita la profondità della veduta a 20 quadretti, 
mentre le linee 427C e 4300 bloccano il disegno quando si 
presenta un muro o l’uscita. 
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5000-5140 Accetta il vostro comando, ne controlla la validità, modifica 
le coordinate (yourx.youry), o la direzione (d) e quindi torna 
alla linea 4000 per una nuova veduta o alla 6000 se è stato 
premuto H. 

6000-6080 Mostra la pianta scrivendo m$( ) e con la Variabile di Siste¬ 
ma CHARS opportunamente modificata. 

7000-7070 Routine per una uscita trionfale. 
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DRAGONE 



È una gara di abilità e di velocità disputata in cima ad un altopiano 
rettangolare. Potete muovervi usando i tasti direzione 5, 6, 7 e 8 senza 
però cadere fuori dai bordi del rettangolo! 

L'altopiano è ricoperto da boschi e paludi che ostacolano la vostra 
corsa, rallentandola. Fate attenzione che le paludi sono invisibili! In un 
punto a caso lampeggerà sempre un numero che rappresenta un teso¬ 
ro da prelevare; effettuato un prelievo, apparirà un altro numero e così 
via. 

Nel rettangolo di gioco insieme a voi, c’è, però, anche un dragone fe¬ 
roce e affamato la cui corsa è pure rallentata da boschi e paludi. Nella 
sua disperata rincorsa, abbatte gli alberi passandovi sopra e riducendo 
così il numero degli ostacoli presenti sull’altopiano. Se dovesse passare 
sopra al tesoro da raggiungere, questo sparirebbe, e starebbe a voi ri¬ 
cordare il punto esatto dove era per poterlo raccogliere. 

Quanto tempo saprete resistere al dragone? Battete il programma 
che segue e lo vedrete. 
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LET h=0 


5 CL5 : RESTORE 

10 FOR a =0 TO 7 

20 READ b: POKE USR CHR$ 116+3 
. b 

30 READ b: POKE USR CHR$ 100+a 
. b 

4.0 READ b: POKE USR CHR$ 109 + a 
, b 

50 NEXT a 

60 FOR a=20 TO 5 STEP -1: 6EEP 
. 1 . a •. NEXT a 

70 FOR a =5 TO 20: BEEP . 1.. a : N 
EXT a 

60 GO SUB S00 
100 REM Tue mosse 
110 LET b = b+(b < =0) : BEEP .01,10 
120 LET p (w , 23 =e: LET i= W: LÉT 
•j =2 

130 IF a > =0 THEN LET W=W + iINKEY 
$ = " 6 " 3 - i INKEY $ = " 7 " 3 : LET Z=Z+<IN 
KEY $ = "S"3-(INKEY$ = "5"3 
14.0 IF p(W.Z>=4 OR P (W , Z 3 =9 THE 
N LET r=piw,Z) : GO TO 600 
150 IF w =X AND Z =y THEN GO SUB 
500: 60 TO 170 

160 IF a>=0 AND p«w,Z)<>0 THEN 
LET a=p ( W , Z 3 -2 : BEEP .1,-10 
170 PRINT AT i,.j-2.; t" ” RND e< = 
0) , INK 4-, tCHR$ 163 HND e =13; IN 
K 6; (CHRS 79 AND 6=2) 

160 LET e=P(W.Z): LET P i W , Z ) =5 
190 PRINT AT W,Z-2;CHRS 156 
300 rem Mosse del dragone 
310 LET a =a + (a <: =0) : BEEP .01,-2 

0 

320 LET C =0 : LET d=0 
330 IF hBS Ou-u) > =ABS v Z -V ) THE 
N LET C =SGN (W-U) 

34.0 IF C =0 THEN LET d =SGN (Z - V > 
350 LET p (il, V ) - le AND e < > 1 ) 

360 PRINT AT U,V-2; (" " AND f<> 
2 ) : INK 6; (CHR $ 79 AND f=2) 

370 IF b ;• =0 THEN LET u=u+C: LET 
v = v +d 

380 PRINT AT U,V-2.;CHR$ 14-7 
390 IF p(U,V>=5 THEN LET r=5: G 
O TO 600 

400 IF b > =0 AND P ( U .V) > 0 THEN L 
ET b=b-4: BEEP .1,-36 
410 LET f =p (U ,V 3 : LET p ( U,V 3 =4 
420 GO TO 100 
500 REM Punteggio 
510 BEEP 1.5,45 

520 LET S = S-K: PRINT AT 0,0; "Re 
cord = ";h.;TAB 16; "Tuoi punti = 

530 IF p i X, y + 13 <7 AND 1=1 THEN 
LET P >: X . y +13 = 1 : PRINT AT X,y-1: 
INK 4 ;CHR $ 163 
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540 LET p ( X . y ) = L : F'RINT AT x.y- 
£.; INK 4; (CHR$ 163 AND 1=1) 

550 LET X sINT (RND*£0+2) : LET y 
= INT (RND*32+2) 

560 IF R6S (xi-u) <6 RND RBS (y-v 
) <6 THEN GO TO 550 
570 LET K. =-INT (RND*9 + 1) : LET l 
=P ( X , y ) 

580 LET P (X ,y )= K : PRINT RT x,y- 
2.; FLASH 1; INK 6.; PAPER 2;-K 
590 RETURN 
600 REM Fine 

610 IF I* =9 THEN FOR a=l TO 15: 
BEEP .3.-a-30: NEXT a 
620 IF r<> 9 THEN BEEP 5,-38 
630 CLS 

640 IF r >7 THEN PRINT AT 12,6;" 
Sei caduto nel burrone": GO Tu 6 
70 

650 IF r =4 THEN PRINT AT 12,0.;" 
STUPIDO-Sei finito nel dragone" 
660 PRINT AT 14,8;"Ti ha divora 
10 ! " 

€•70 PRINT AT 16,10.; "Sei morto ! 


680 PR INT AT 8,10.; " Re cord " .; h .; T 
AB 10;"Hai fatto ";£ 

690 IF £ >h THEN PRINT AT 4,0; I 
NK 1; PAPER 6;"************CAMPI 
ONE ************" 

700 IF £>h THEN LET h=S 

710 PRINT AT 20 , 7 ,"Altra gara ? 

720 1 "' FOR a =£5 TO 5 STEP -1: BEEP 
.1.3: NEXT a 

730 IF INKEY$="y" THEN GO Tu D0 
740 IF INKEY$ <>"n" THEN GO TO 7 
30 

750 BORDER 7: BRIGHT 0: ULb b 
TOP 

800 REM Preparazione 


810 DIM l$ (32) : DIM p( 
820 LET £ =0 : LET a=0 : 
830 LET C =0 : LET d=0 : 
LET f=0 

840 BORDER 2: INPUT "" 
850 FOR a=l TO 30 


LET 


34) 

b =0 
e =0 : 


360 LET x =INT (RND*20+2): LET y 
= INT (RND*32+2) 

870 LET p (x .y ) =2 : PRINT AT X,y- 
2; INK 6,CHR$ 79 
880 NEXT a 

890 LET U =INT (RND*20+2) : LET V 
=INT (RND*32+2) 

900 LET W = I NT (RND *20+2): LET Z 
=INT (RND*32+2) 

910 IF ABS (W-U) <6 AND ABS (z-v 
) <6 THEN GO TO 900 
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920 PAUSE 200: CLS : G0 SUB 550 
930 PRINT AT 0,0" RECORD = " ; h ; 
TAB 16;“TOUI PUNTI = ";s, PAPER 
2 : li 

94-0 PRINT AT W .. Z-2;CHR$ 156: LE 
T P ( w , z ) =5 

950 PRINT AT U,V-2;CHR$ 14.7: LE 
T Piu , v ) =4 
960 FOR a =1 TO 175 
970 LET p = INT (RND*20+2): LET q 
=INT (RND*32+2) 

960 IF p (p,q) <>0 TMEN GO TO 970 
990 LET P (P . q) = 1 : PRINT AT p q - 
2; INK 4.; CHR$ 163 
1000 IF a<35 THEN LET pii. ai =9: 
LET pi 22, a) =9 

1010 IF a<23 THEN LET Pta.l)=9: 
LET Pia,34)=9 
1020 NEXT a 

1030 FOR a =1 TO 10: BEEP .5,20+t 
10* (-1 AND a =2*INT (a/£))): NEXT 

1040 RETURN 

9000 DATA 24,195,24.60,102,24.21 
9,36,0,219,126.126,60,195.24,126 
,219,24,219.195,36,24,126,36 


5-80 Predisposizione dei caratteri grafici ed esecuzione della 
melodia d'apertura. Usa poi la subroutine alla linea 800 per 
disegnare l'altopiano e memorizzarne l’immagine nell’array 
P( )• 

100-420 Loop principale del programma eseguito in continuazione 
per muovere sia il dragone che voi. La vostra posizione è 
stabilita da "w” e “z”, quella del dragone da “u” e “w” e 
quella del tesoro da “x” e “y”. 

500-590 Subroutine richiamata ad ogni prelievo del tesoro. 

600-750 Diversi tipi di fine seguiti dalla richiesta di una nuova gara. 
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CAPITOLO 13 

APPLICAZIONI 


Sembra che la maggior parte del software scritto per lo Spectrum sia 
destinato a giochi di diverso tipo. Ciò non è necessariamente un male, 
in quanto scrivere programmi di giochi è un modo divertente per impa¬ 
rare a programmare, studiando le strutture e le semplici regole che 
spesso li caratterizzano; e poi, in fondo, giocare è divertente! 

Non dimentichiamoci però che lo Spectrum è, sotto molti aspetti, as¬ 
sai più potente dei computer della prima generazione, studiati per uffi¬ 
cio o per applicazioni tecnico-commerciali. La nostra macchina, infatti, 
non è limitata ad impieghi di calcolo e ragioneria ma, se munita di una 
adeguata porta I/O, diventa un dispositivo di controllo ideale per opera¬ 
re nei più svariati laboratori scientifici. 

In questo capitolo troverete alcuni esempi di programmi utili che po¬ 
trete adattare a seconda delle vostre particolari esigenze. Visto che lo 
scopo di questo capitolo è quello di indicare alcuni possibili impieghi, e 
non quello di insegnare tecniche di programmazione, non abbiamo for¬ 
nito le consuete spiegazioni dei listati. 

In definitiva, lo Spectrum è particolarmente adatto ad applicazioni 
che comportino quantità non troppo rilevanti di dati in ingresso o in u- 
scita (fino a file che abbiano un massimo di 30000 caratteri); per il re¬ 
sto, i soli limiti di impiego, sono la vostra immaginazione e il numero di 
ore disponibili in una giornata! 
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MEDIE 


Input dati 

1 : 1 

2 : 

2 

3 : 4 

4 : 

6 

5 : 15 

6 : 

32 

7 : 64 

8 : 

80 

9 : 90 

10 

95 

11 : 95 

12 

90 

13 : 80 

14 

64 

15 : 32 

16 

16 

17 : 8 

18 

4 

19 : 2 

20 

1 

Media aritmetica 

s 39.05 


Media geometrica = 16.144337 
Media armonica = 4.8985292 
Uatore medio a 53.811244 


Questo è un programma rivolto agli amanti delle statistiche, in grado 
di accettare quanti dati numerici si voglia. Di tali numeri calcola la me¬ 
dia Aritmetica, quella Geometrica, quella Armonica e anche la Radice 
quadrata. I dati vanno inseriti uno alla volta. Per terminare la serie, bat¬ 
tete “s”. 

10 REM MEDIE 

20 LET a**"": LET n*0: PRINT " 

Input dati : 

30 INPUT "Dato (n+l) ij: ir 
i*<>"»" THEN LET nsn+i: LET a «sa 
«+if+CHR« 124. GO TO 30 
40 DIM X (n) 

50 FOR a si TO n 
60 LET bs0 

70 LET b=b+l: IF a*(b)<>CMR« 1 
24 TMEN GO TO 70 

80 LET x (a)sURL a*(l TO b-1): 

LET a«sa«(b + l TO ): PRINT a ; " 

" ; x(a) , 

90 NEXT a 

100 REM Media aritmetica 

110 LET b=0 

120 FOR a si TO n: LET b*b*x(a): 

NEXT a 

130 PRINT '"Media aritmeticas 
; b/n 

200 rem Media geometrica 

210 LET b=l 

220 FOR a si TO n: IF X(a)>0 TME 
N LET bsb*X(a): NEXT a 

230 IF a < sn THEN PRINT “Media g 
eometrica impossibile": GO TO 3» 

0 

240 PRINT "Media geometrica * " 

; bt(1/n) 
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300 REM Media armonica 
310 LET b=0 

.320 FOR a Bl TO n: IF X(a) < >0 TM 
EN LET b»b + l/X<a): NEXT a 
330 IF a < sn TMEN PRINT "Media a 
rmonica impossibile": GO TO 400 
34.0 PRINT "Media armonica * ";n 
✓ b 

4-00 rem uaiore medio 
4.10 LET b=0 

^*20 FOR a■! TO n: LET b«*b + x(a)t 
3: NEXT a 

4.30 print "uaiore medio ■ ";SOR 
(b/n ) 

44.0 input "Enter per ripartire" 
; 1 $ : RUN 


All’ingresso di ogni voce (linea 30), il dato viene aggiunto alla fine 
della stringa a$ e separato da CHR$ 124. Tale operazione si ripete fino 
a che non venga inserita “s". 


G.P.G.P. - UZ M l -T Z 'S l 



Questo tracciacurve universale (General Purpose Graph Plotter), è 
di particolare aiuto nelle riunioni di affari quando si rende necessaria 
una documentazione scritta degli andamenti. Presenta fino a 9 file di 
dati, contenenti ognuno i valori relativi ai 12 mesi dell'anno. I dati di o- 
gni coppia di file possono essere tracciati sia tramite barre che tramite 
punti. La scelta dell’asse verticale è automatica e il massimo è dieci e- 
levato a 1,2 o 5. Possono essere registrati (col programma) diversi in¬ 
siemi di file con vari nomi. 
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Quando non visualizza un grafico, il programma presenta all'utente 
un menù con le scelte possibili: 

— disegna un nuovo grafico da uno o due file e stampalo se richiesto; 

— richiama i dati di ognuno dei nove file e cambiali; 

— conferma o sostituisci il titolo per l’insieme dei nove file; 

— registra il programma contenente i dati sul nastro usando il titolo co¬ 
me nome. 


Una volta caricato da nastro, il programma si autoawia. Qualora do¬ 
vesse, per qualsiasi ragione, arrestarsi, fatelo ripartire dando un GO TO 
1000 al posto di RUN, che cancellerebbe tutti i dati (naturalmente il 
RUN va dato almeno una volta, all’inizio, per inizializzare gli array dei 
dati). Per bloccare il programma dovete battere CAPS/SHIFT e BREAK 
mentre è in corso un calcolo oppure CAPS/SHIFT e 6 mentre è in atte¬ 
sa di un ingresso. 


100 DIM d (9 ,13) : DIM ri *(9,10): 
DIM t $(10) : DIM X $ ( 13) 

110 LET l$ = "G FMAMGLASO 
N D" 

120 LET iiìS = "GenFebMarRprMagGiuL 
ugAgose tot tNovDic" 

130 GO SUB 9100 
1000 REM PARTE PRINCIPALE 
1010 PAPER 7: INK 0: CLS : PRINT 
TAB 10;t$ 

1020 FOR a =1 TO 9: PRINT AT a+1, 
9;a;TAB 12;n$(a): NEXT a 
1100 PRINT AT 15,6;"inserisci ;” 
1110 PRINT AT 17,7; "P - PlOt";TA 
B 7;"R - revisione dati" 

■1120 PRINT TAB 7;"S - registra"; 
TAB 7;"T - batti titolo" 

1130 INPUT LINE i$ : LET i$=FN 3$ 
< i $ ) 

114.0 FOR a =15 TO 21: PRINT AT a, 
0.,: NEXT a 

1150 IF i$="R" THEN GO TO 2000 
1160 IF i$="P" THEN GO TO 3000 
1170 IF i$ = "S" THEN GO TO 4-000 
1180 IF i$ = "T" THEN GO TO 5000 
1190 GO TO 1100 

2000 INPUT "File (1-9) ? "; LINE 

i$ 
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2010 GO SUB 9000: IF i<1 OR i>9 
THEN GO TO 2000 

2020 LET f*i: PRINT RT f+1,9; OU 
ER l; FLRSH 1;" " 

2100 FQR m =1 TO 12 

2110 PRINT RT FN CO ,FN dO;m$(m 

*3-2) ; " " ; d ( f , fu ) 

2120 NEXT hi 

2200 INPUT "Cambi (Y/N) ? LIN 

E i$ 

2210 IF i$="n” OR i$="N" THEN GO 
TO 1000 

2220 IF i$ < >"y" RNO i$ < >”Y" THEN 
GO TO 2200 

2230 INPUT "Nome dei file ? "; L 
INE n$(f>: PRINT RT f+1.12;n*(f) 
2300 FOR ni = 1 TO 12 
2310 INPUT "Dati per (hi*(m*3-2 
Tu hi *3) ) ; " ? "; LINE i* 

2320 GO SUB 9000: IF e<>0 THEN G 
0 TO 2310 

2330 LET d ( f , hi ) =i : LET X$=STR$ i 
2340 PRINT RT FN CO.. 2+FN d O , X $ 
2350 NEXT hi 

2360 INPUT "premi ENTER per torri 
are al menu ' " line i $ 

2400 LET a =0 

2410 FOR hi = 1 TO 12: IF d ( f , hi ) > a 
THEN LET a =d ( f ,m) 

2420 NEXT hi 

2430 FOR b = -30 TO 30: IF 10tb>=a 
THEN GO TO 2450 
2440 NEXT b 

2450 LET hi = 10Tb: IF hi /2 > =a THEN 
LET ni =m /2 

2460 IF .2*101-b>=a THEN LET hi =. 2 
*101 b 

2470 LET dir., 13) =hi 
2480 GO TO 1000 
3000 REM Plot 

3010 INPUT "Linea o barra (L/B) 

? ", LINE P $ : LET P$=FN a*(p$) 
3020 IF P $ < > " L " RND p$o"B" THEN 
GO TO 3010 

3030 INPUT "Primo fi le (1-9) ? " 

; LINE i$ 

3040 IF LEN i$<>l OR i$<"0" OR i 

*>"9" THEN GO TO 3030 

3050 LET f1=CODE i$-CODE "0" 

3060 PRINT RT 21,6; INK 2;CHR$ ( 
133+(11 RND p$ = "L”)); INK 0;" "; 
n $ ( f 1 ) 

3100 INPUT "Secondo file (1-9) ? 
", LINE i$ 

3110 IF i$="" THEN LET f2=0: GO 
TO 3200 

3120 IF LEN i$ <>1 OR i$<"0" OR i 

$ >"9" THEN GO TO 3100 

3130 LET f2 =CODE i$-CODE "0" 
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314.0 PRINT AT 21,19; INK 1; CHR* 

( 133+ (12 AND P$ = "L")); INK 0.;" " 
; n $ ( f 2 ) 

3200 FOR a =0 TO 20: PRINT AT a,0 
,,: NEXT a 

3210 LET hi= d(f1,13) 

3220 IF f 2 >0 THEN IF d ( f 2.13) >hi 
THEN LET hi=d(f2,13) 

3300 PLOT 0,17: DRAU 255,0: PLOT 
0,167: ORALI 255,0 
3310 PRINT ftT 0,10;t $;ftT 1,0;hi; 
FiT 19,0.;0;ftT 20,6; 1$ 

3320 IF p $ = "6" THEN GO TO 3500 
34.00 LET S=FN b «d « f 1,1) ) : PLOT 5 
1, £ 

3410 FOR a=2 TO 12: LET y =FN b (d 
(fi, a)): DRflW 16 , y -£ : LET £ =y : N 
EXT a 

3420 IF f2 =0 THEN GO TO 3900 
3430 LET S=FN b(d(f2.1)): PLOT 5 
l,s 

3440 FOR a=2 TO 12: LET y =FN b(d 
( f 2 , a ) ) 

3450 DRAU 4, (y -5) /4 

3460 PLOT 27+16*a,£+(y-S)/2: ORA 

U 4,(y-s)/4 

3470 LET £ =y: PLOT 35+16*a,S 
3430 NEXT a 
3490 GO TO 3900 
3500 FOR a =1 TO 12 
3510 FOR S=34+a*16 TO 37+a*16 
3520 INK 2: PLOT £.17: ORALI 0,FN 
b (d ( f 1 ,a) ) -17 

3530 IF f 2 > 0 THEN INK 1: PLOT £ + 
6,17 : ORALI 0 . FN b ( d C f 2 , a ) ) -17 
3540 NEXT £ 

3550 NEXT a 
3560 INK 0 

3900 INPUT "Dissono (Y) ? LIN 

E i $ 

3910 IF i$="y" OR i$="Y" THEN CO 
PY 

3920 GO TO 1000 

4000 REM r6g i £traz i one 

4010 SAUE t.$ LINE 4020 

4020 GO SUB 9100: GO TO 1000 

5000 REM input, titolo 

5010 INPUT "Titolo ? "; LINE t$ 

5020 GO TO 1000 

3000 REM Funzioni 

8010 DEF FN a $ (à $) =CHR$ (CODE 3$ 
-(32 ANO CODE a$>96)) 

8020 OEF FN b (V) = INT ( V * 150/hi + 1 
7 ) 

8030 DEF FN C () =13+ Th -6 * INT ( (ftì-1 
) /6 ) 

3040 OEF FN d () =16*INT ( (ffi-l) /6) 
9000 REM conversione di i$ a i 
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9010 LET i=0: LET 6=1: IF i$ = ’"‘ 
THEN RETURN 
9020 LET dp=0 

9030 FOR C=1 TO LEN i $ : LET C$ = i 
$ ( C ) 

904.0 IF THEN LET dp=dp+l: 

GO TO 9060 

9050 IF .:*<>"+" RND (C*<”0" OR C 
$ >"9“) THEN RETURN 

9060 NEXT C: IF dp>l THEN RETURN 

9070 LET i=UfiL i$ : LET 6=0: RETU 
RN 

9100 REM de finizione caratteri 
9110 DHTfi 0,0 .. 0,0,255,0,0 .. 0,0,0 .. 
0.0,204,0.0,0 

9120 RESTORE : FOR 3=0 TO 15: RE 
hD b: F'OKE USR "3"+3,b: NEXT a 
9130 RETURN 


AGENDA 

D’ora in poi non avrete più scuse se vi dimenticate qualche com¬ 
pleanno, oppure qualche appuntamento importante! Il programma che 
segue trasforma lo Spectrum in un’agenda da tavolo. Potete inserire 
messaggi di qualunque lunghezza con qualsiasi data, ve li ritroverete 
memorizzati in ordine cronologico. Il programma accetta anche due 
messaggi con la stessa data. È possibile controllare il contenuto esplo¬ 
rando fra due date, quindi, trovato quanto interessa, tornare al menù 
principale e, quando un’informazione non serve più, potete cancellarla 
per fare spazio in memoria a nuovi dati. Naturalmente potete salvare su 
nastro le informazioni della vostra agenda. Le spiegazioni sono conte¬ 
nute nel programma stesso. Se, per una ragione qualsiasi, si dovesse 
bloccare, riavviatelo con GO TO 130 e non col distruttivo RUN. 
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10 rem Preparazione 
20 DEF FN f(X)=INT (X-100*INT 
(X/100)) 

30 DEF FN f $ (X) = ( " 0 " AND FN f C 
X) < 10 ) +STR* FN f (X) 

4-0 DEF FN g * (X * , X ) =X $ (X +4 TO X 
+ 5) +"/"+X$ (X+2 TO X +3) + "/" +X t (X 
TO X +1 ) 

50 LET a $ = LET (.* = "" 

60 LET C=0 

70 DIM b*(5) 

100 REM Menu 

110 PRINT AT 20,0;“Premi guatsi 
asi tasto per continuare'’,,, 

120 PAUSE 0 
130 CLS 

14.0 PRINT AT 2,10;“ Diario 
150 PRINT AT 5,5;“(1)...inseris 
ci messaggio" 

160 PRINT AT 7,5;"(2 )...caneeLL 
a giorno" 

170 PRINT AT 9,5;"(3)...Display 


130 PRINT AT 11,5; " (4.) .. .Save ' 

Diario"" 

190 PRINT AT 21,0;"Inserisci ta 

200* INPUT ri: LET n=INT n : IF n < 
1 OR ri >4 THEN GO TO 20© 

210 CLS 

220 IF lisi THEN GO TO 300 
230 GO TO 300*ri+300 
300 REM input 

310 PRINT AT 0,12;"Batti it dia 
rio” 


320 LET c=c+l 

330 LET m*=“": LET a 

34.0 INPUT "Giorno 


1 

; d""Mese 


; m'"Anno ";y 

350 LET d*=FN f$(y)+FN f % (ni ) +FN 
f < (di : LET e*=FN g$(d$,l) 

360 CLS : PRINT AT 0,0;e*;TAB 1 


2;"Batti il diario" 


370 INPUT "Pragrafo "; ia»,i*: P 
RINT AT 2,2;i* 

330 LET l=LEN i$-32*INT (LEN it 
/32 ) 

390 FOR Z=l TO 29: LET i*=i*+" 

": NEXT Z 

400 LET fti $=»$ + " "+i$ 

410 print AT 21,0;"Ancora ? (y/ 

n 420 IF INKEV$="y" THEN LET a =a + 
1: GO TO 360 

430 IF INKEYS < >"n" THEN GO TO 4 
10 

440 LET b$=STR* (LEN a$+l): LET 
t$=l$+b$ 
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4.50 PRINT RT 2,0; dì*: LET a$=a$+ 

M $ 

4.60 LET b$=STR$ (LEN hì$j : LET l 
$= l$ + b$+d $ 

470 FOR Z=1 T0 16*C-16 STEP 16 
4-80 LET P=URL l*(z TO Z+4) 

4-90 LET r =(l$(z +10 TO z+15)=d$) 
+ (2 RND l$(Z + 10 TO Z +15) >d $) 

500 IF fai THEN LET C=C-1: GO T 
0 660 

510 IF f =2 THEN GO TO 54.0 
520 NEXT Z 
530 GO TO 100 

540 LET v=URL l*(16*C-15 TO 16* 
C-ll) : LET P=URL l$(Z TO Z+4) 

550 LET a$=a*( TO p- 1)+ a $ ( v TO 
) +a * ( p TO v -1) 

560 LET h $ = l $ ( 16SC -10 TO 16*0 
570 FOR y =16*e-31 TO z STEP -16 
580 LET l $ (y +21 TO y+31)=l*(y+5 
TO y +15) 

590 NEXT y 

600 LET liiZ+5 TO Z+15)=h$ 

610 FOR y=Z TO c*16-16 STEP 16 
620 LET b$=STR$ (URL l*(y TO y+ 
4)+URL l$(y +5 TO y+9)) 

630 LET l$(y+16 TO y+20)=b$ 

640 NEXT y 
650 GO TO 100 

660 FOR y =Z +16 TO 16*C STEP 16 
670 LET l $ (y TO y+4)=STR$ (URL 
l$(y TO y+4) +LEN (iì $) 

680 NEXT y 

690 LET V=URL l*(Z TO Z+4)+URL 
l $ (Z +5 TO Z+9) 


700 LET a*=a$( TO v-l)+»$+at(v 
TO LEN a S-LEN (lì*) _ fll _ 

710 LET l S (Z +5 TO Z+9)=toTR* CUP 
L l*(Z+5 TO z + 9 ) +LEN nì$) 

720 LET L $ = L $ ( TO LEN l$-16) 

GO TO 100 
REM Caneeilazione 
PRINT RT 0.. 10; "Canee llazion 


INPUT "Cosa cancelli ?"'"Gi 
";d '•Mese ";nT"Rnno ";y 
LET d $ =FN f$(y)+FN f $ (m ) +FN 


730 
900 
910 
e " 

920 
orno 
930 
f $ ( d ) 

940 LET e $aFN 9 $(d$, li „ _ 

950 FOR Z=1 TO 16*C toTEP Ito 
960 LET p =URL l$(Z TO Z+4) 

970 IF L $(Z +10 TO Z +15) =d $ THEN 
GO TO 1010 

980 IF L $ (Z +10 TO Z+15) <d$ THEN 
NEXT Z 


990 PRINT RT l 
RB 12;e $ 

1000 GO TO 100 


'Non valido 
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1010 LET a$=a$( TG p-l)+a$(URL l 
$ (2 +5 TO Z +9) +P TO ) 

1020 LET V=URL l*lz TG Z+4) 

1030 FOR y=2 TO 16+C-20 STEP 16 
104.0 LET lt(y+5 TG y + 15) = l $ (y +21 
TO y+31) 

1050 LET V=URL l $ iy TO y+4)+URL 
l $ (y +5 TO y +9) 

1060 LET l $ (y +16 TO y+20)=STRt V 
1070 NEXT y 

1030 LET L$:l|( TO 16 $C-16) 

1090 PRINT RT 5.. 10, "Batti : ";e$ 

;TRB 13;"e cancellato" 

1100 LET c=c-l 

1110 GO TO 100 

1200 REM Serittura 

1210 PRINT RT 0,9;"Display" 

1220 INPUT "Da quando ?" ' "Giorno 
";d'"Mese " m ' "Rnno " ; y 
1230 LET d $ =FN f$(y)+FN f $ (fu ) +FN 
f $ ( d ) 

124.0 input "R quando ?"'"Giorno 
";d'"Mese ", in'" fin no ";y 
1250 LET e $=FN f$(y)+FN f$im)+FN 
f $ < d ) 

1260 IF e$ <d$ THEN LET i$=e$; LE 
T e $ =d $ : LET d$ = i $ 

1270 LET f=0 

1230 FOR 2=1 TO 16*C STEP 16 
1290 LET p=URL l $ ( 2 TO Z+4.) 

1300 IF d$< = l$ 12+10 TO Z + 15) THE 

N GO TO 134.0 

1310 NEXT Z 

1320 LET f =1 

1330 GO TO 1440 

1340 IF 6*<l*(Z+10 TO 2+15) THEN 
LET f =Z: GO TO 1410 
1350 CLS 

1360 PRINT RT 0,0;FN g$Cl$,z+10) 
1370 PRINT RT 2,0,a$(p TO p-l+Ufi 
L l $ ÌZ +5 TO 2+9) i 

1330 PRINT RT 20,0, "Pf erù i ' y ' pe 
r continuare" 

1390 PRINT RT 21,0;"Premi 'n' pe 
r la fine" 

1400 IF INKEY$="n" THEN GO TO 13 
0 

1410 IF INKEY$ < >"y" THEN GO TO 1 
400 

1420 NEXT 2 

1430 IF fOl THEN FOR 2=1 TO 50: 

NEXT 2 : GO TO 100 
1440 LET d $ = FN g*(d*,l) 

1450 LET e $ =FN 9 $ ( e $ ,1) 

1460 PRINT RT 5,7;"Non inserire 
tra",TRB li,di; " &";TRB li; e $ 
1470 60 TO 100 
1500 REM Save 

1510 SfiUE "diario" LINE 1520 
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1SS0 PRINT hT 5..5; "Riavvo igi il 
nastro per UERIFY";RT 7,5; "Premi 
qualsiasi tasto quando sei pron 
to ’ 1 

1530 Phuse 0 

154.0 UERIFY "diario" 

1550 60 TO 100 



SOCI 

Questo programma è nato per agevolare l’esistenza dei segretari di 
club, notoriamente molto indaffarati. Contiene i dati per un massimo di 
370 soci (con uno Spectrum da 48 K), memorizzabili su nastro evi per¬ 
mette di modificare o stampare le informazioni in diversi modi. I dati 
annotati per ciascun socio sono: 

— numero di tessera, allocato in sequenza ogni volta che si aggiunga¬ 
no al file nuovi soci, partendo da un numero iniziale impostato alla 
creazione del file; 

— nome, telefono ed indirizzo fino a un totale di 94 caratteri; 

— due “chiavi” da 3 caratteri, usate per contenere informazioni come, 
per esempio, il livello di associazione e il mese in cui il socio deve 
pagare la sua quota. 

Se il vostro club è veramente grande, potrete utilizzare una cassetta 
separata per memorizzare i dati di ciascun gruppo di 370 soci. È possi¬ 
bile far girare il programma anche su uno Spectrum da 16 K, ma dovre¬ 
te limitare il numero di soci a 42 cambiando la prima istruzione della ri¬ 
ga 100 in LET m=42. Se il programma dovesse fermarsi per un motivo 
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qualsiasi, non usate RUN per farlo ripartire, in quanto verrebbero di¬ 
strutti tutti i file. Usate invece GO TO 1000. 

Lo schermo presenterà questo aspetto normalmente: 

Num 

Home 

Tel 

Ind 


Tasto 1 : 

Tasto 2: 

Num + - c N P S 

Tasto 1 : 

Tasto 2= 

Pieno 

Il quadratino nero nell'ultima riga, è un cursore lampeggiante usato 
per tutto il programma, al fine di segnalare la richiesta di impostare ul¬ 
teriori dati. 

Il menù principale vi invita a impostare: 

Numero: battendo il numero d’iscrizione, verrà visualizzata la situa¬ 
zione del socio al quale si riferisce il numero stesso. 

+: verranno presentati i particolari del socio con il numero più elevato. 
—: mostrerà i dati del socio precedente. 

C: vi permette di cambiare i dati del socio al momento visualizzato. 
N: per aggiungere un nuovo socio all’elenco. 

P: per stampare i dati dei soci mediante una stampante. 

S: per memorizzare il programma su nastro. 

Impostando “C” o "N”, scomparirà la riga principale del menù sul 
fondo dello schermo ed il cursore lampeggiante si porterà vicino alla 
parola “nome:” e voi dovrete inserire il nome del socio. Eseguita l’ope¬ 
razione, il cursore si porterà verso il basso per farvi battere il numero di 
telefono. Continuate a riempire le righe di dati fino alla “chiave 2:”; do¬ 
po di ciò riapparirà il menù principale. Se in una delle voci eccederete 
nell’impostare i dati, il programma ignorerà l’eccesso mostrando sullo 
schermo solo i caratteri compresi nello spazio disponibile. 
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Selezionando P (Print), il display assumerà l’aspetto 


Chiave 1: 
Chiave 2: 
Completo: 


e si porrà in attesa dei dati prima di iniziare la stampa. Per le righe 
"Chiave 1” e “Chiave 2” avete la scelta tra il non impostare nulla (sem¬ 
plicemente premendo il tasto ENTER), oppure una chiave di tre carat¬ 
teri al massimo. Se impostate una chiave, verranno stampati solo i dati 
dei soci contrassegnati da una chiave uguale. In questo modo potrete, 
per esempio, stampare un elenco dei soci che devono pagare la quota 
in "AGOsto”. La terza riga (Completo:) necessita di una risposta Y o N. 
Impostando Y, verranno stampati tutti i dati di ciascun membro per po¬ 
ter, ad esempio, stampare indirizzi su etichette. Battendo N, sarà stam¬ 
pato solo il numero del socio, le due chiavi e il nome. L’opzione S (Sa¬ 
ve) si presta per memorizzare su nastro l'ultima versione della lista. Il 
programma vi chiederà il nome del file, permettendovi di controllare i 
dati registrati. Il programma viene salvato assieme ai dati in modo da 
girare automaticamente una volta caricato. 


100 LET m =370 : DIM 
110 DIM Z $ (25) : DIM X*i3): DIM 
K$ (1) 

130 INK 0: PAPER 7: FLASH 0: BR 
IGHT 0: OL'ER 0: INUERSE 0: BORDE 
R 7: CLS 

200 PRINT AT 8,4;"NUOVO file di 
dati" 

210 PRINT AT 15,0;"Numero dei p 
rimo socio ? FLASH 1;" " 

230 GO SUB 9000: IF i=0 THEN BE 
EP .1.20: GO TO 220 
230 LET firstsi: LET next=i: LE 
T c u r r =0 

1000 REM stampa il menu- princip 
a le 

1010 CLS 

1020 PRINT AT 3,0;"Num. :";AT 5 
, 0;"Nome 

1030 PRINT AT 7,0;"Tel. :";AT 9 
,0;"Indir.: 

1040 PRINT AT 10,6;":";AT 11,6;" 

: " ; AT 12,6; AT 13,6;":" 
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1050 PRINT RT 15,0;"Cod.l :";RT 
16,0;"Cod.2 :" 

2000 REM scelta dai menu' princi 
pale 

2010 PRINT RT 21,0;"Numero + - C 
N P S "; FLRSH 1;" " 

2020 GO SUB 9000: PRINT RT 21,0, 

, : IF i >0 THEN GO TO 3000 

2030 IF CODE i$ >90 TMEN LET i *=C 

HR$ (CODE i$-32) 

204.0 IF i$="+" THEN GO TO 3100 
2050 IF i$ = " -" THEN GO TO 3200 
2060 IF i$ = "C" THEN GO TO 4.000 
2070 IF i$="N" THEN GO TO 4-100 
2080 IF i*="P" THEN GO TO 5000 
2090 IF i$ = "S" THEN GO TO 6000 
3000 REM ricerca il record numer 
ato 

3010 IF i < fir S t OR i>next THEN G 
0 TO 2000 

3020 LET corrai : GO TO 3300 
3100 REM ricerca il record succe 

3110 IF curr>=next-l THEN GO TO 
2000 

3120 LET curracurr+1: GO TO 3300 

3200 REM ricerca il record prece 
dente 

3210 if curr<afirst then go to 2 
000 

3220 LET curr=curr-l 

3300 REM ricerca il record attua 

le 

3310 FOR a=3 TO 16: PRINT RT a,7 
;Z $ : NEXT a 

3320 PRINT RT 3,8;curr: LET pOS = 

3330 FOR 1=5 TO 13: IF l=6 OR 1= 
8 THEN LET 1=1+1 
334.0 PRINT RT 1,8; 

3350 IF pos>100 THEN GO TO 3500 
3360 LET qaCODE d$ (CUrr+1-first, 
POS): LET P0S=P0S+1 
3370 IF q <128 THEN PRINT CHR* q; 

: GO TO 3350 

3380 PRINT CHR* (q-128); 

3390 NEXT l 

3500 PRINT RT 15,8; d $ ( cu r r +1 - f i r 
St ,4- TO 3) 

3510 PRINT RT 16,8;d«(curr+1-fir 
St,4 TO 6) 

3520 GO TO 2000 

4.000 REM cambio record attuale 
4010 IF curr<first OR curr>=next 
THEN GO TO 2000 
4020 GO TO 4200 
4100 REM aggiunta nuovo record 
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4.110 IF nex t > = firs t +f» TMEN PRINT 
RT 19,0, FLASH 1;"FILE PIENO": 
BEEP 1,10: GO TO 9000 
4120 LET currantxt: LET next=nex 
t+1 

4130 FOR a=3 TO 16: PRINT AT a,7 
; Z$: NEXT a 

4200 REM input dati per i record 
4210 PRINT AT 3,8;CUrr: LET posa 

7 

4220 FOR 1=5 TO 13: IF 1=6 OR 1= 

8 THEN LET 1 = 1+1 

4230 PRINT AT 1,7; FLASH U" " 
4240 LET j$=Z$: IF POS>100 THEN 
GO TO 4300 

4250 INPUT LINE il: IF LEN i$>24 
THEN LET i*=i«( TO 24) 

4260 IF i $ = "•• THEN LET i* = " " 
4270 LET R =LEN i$: IF POS+R>100 
THEN LET i$ = i«( TO 101-pos) 

4280 LET R =LEN i$: LET j*(2 TO R 
+ 1) =i $ : LET i $ ( R ) =CHR $ (CODE i*( 
R)+128) 

4290 LET d$(CU|-r+l-first,P0S TO 
POS +R-1) =i$ : LET poS=pOS+R 
4300 PRINT AT L,7;j$ 

4310 NEXT l 

4320 PRINT AT 15,7; FLASH 1;" " 
4330 INPUT LINE i$: LET d$(curr+ 
1-first, TO 3) =i * 

4340 PRINT AT 15,7;" “;d*(curr+l 
-first,4 TO 3) 

4350 PRINT AT 16,7; FLASH 1;" 
4360 INPUT LINE i$: LET d*(curr+ 
1-first,4 TO 6)=i« 

4370 PRINT AT 16,?;" M ;d$(curr+1 
-first,4 TO 6) 

4380 GO TO 2000 
5000 REM stampa 

5010 CLS : PRINT AT 5,0;"COd.l : 

' ' "Cod .2 : " ' "Pieno : " 

5020 PRINT AT 5,7; FLASH 1;" " _ 


5050 INPUT LINE j$: LET X*=j*: I 
F THEN LET j$=X* 

5060 PRINT AT 7,7;" ";j*;AT 9,7; 
FLASH X ’ " " 

5070 INPUT LINE R*: IF CODE R$>9 
0 THEN LET RS=CHR* (CODE R$-32) 
5080 IF R*<> ,t S" AND R$<>"N" THEN 
GO TO 5070 

5090 PRINT AT 9,7;" ";R$ 

5100 LPRINT : LPRINT 

5110 FOR c = first TO next-l: LET 

L$=dS(c-first+li 


5030 INPUT LINE i$: LET X$=i$: 

F i$<>"" THEN LET i*=x$ 

5040 PRINT AT 5,?;" ";i$;AT 7,7 
FLASH l;" " 
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5120 IF ( 1 $ <>"" AND i*Ol*< TO 3 
)) OR U$<>"“ AND j*Ol*U TO 6) 

) THEN GO TO 5230 

5130 IF h*s"S" THEN LPRINT 

514.0 LPRINT C ; L * ( TO 6);" " ; 

5150 LET P=7 

5160 FOR 1=1 TO 7: IF k*="N" AND 
l > 1 THEN GO TO 5220 
5170 IF p >100 THEN GO TO 5210 
5180 LET q=CODE l*(p): LET P=P+1 
5190 IF q<128 THEN LPRINT CHRS q 
; : GO TO 5180 
5200 LPRINT CHR* Cq-128); 

5210 LPRINT 
5220 NEXT l 
5230 NEXT C 
524.0 LPRINT 
5250 GO TO 1000 

6000 rem salva dati e programma 
6010 input "Nome file?"' LINE n* 
: IF n$="" THEN GO TO 6010 
6020 IF LEN n $ >10 THEN LET n*=n$ 
« TO 10) 

6030 LET i * = ••": SAUE n* LINE 610 
0 

604.0 CLS : PRINT AT 6,0; "UERIFIC 
A I DATI SALDATI SUL NASTRO:" 
6050 PRINT '"SE NON SONO ESATTI, 
IL PROGRAMMA SI FERMA CON ERR 9 

6060 PRINT '"PUOI ALLORA FARLO R 
IPARTIRE CON 'GOTO 1000'" 

6100 input "verifica (S/N) ?“; L 
INE i $ 

6110 IF i$=”n" OR i$="N“ THEN GO 
TO 1000 

6120 IF i$<>"S" AND i$ < >"S" THEN 
GO TO 6100 

614.0 print AT 20,0;" Riavvolgi i 
i nastro per verificare" 

6150 LET i$="": UERIFY n* 

6160 GO TO 1000 

9000 LET i=0: INPUT LINE i* 

9010 FOR a =1 TO LEN i« 

9020 IF (it(a)<"0" OR i$ (a) >"9") 
AND i * (a) < > " " THEN GO TO 904-0 
9030 NEXT a 

904.0 IF a > 1 THEN LET i =UAL i $ ( T 
O a -1) 

9050 RETURN 


In programmi come questo, in cui si richiede la memorizzazione di 
dati dalla lunghezza variabile come nomi e indirizzi, sorge sempre il 
problema di scegliere tra l’uso di record dalla lunghezza fissa, comodi 
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per la loro veloce memorizzazione, ma troppo ingombranti in quanto 
vanno proporzionati tutti in funzione della lunghezza del dato più lungo, 
e l’uso di record la cui lunghezza varia di volta in volta. 

Qui sono stati usati entrambi, cioè entro record di lunghezza fissa 
(100 byte) trovano posto dati di lunghezza variabile (come ad esempio 
il nome). 

m Numero massimo di record (370 per 48 K, 42 per 16 K) 

d$(m,100) Array usato per ospitare il file di dati. Ogni record a disposi¬ 
zione per ogni socio occupa 100 byte di cui i primi 6 memo¬ 
rizzano le due “chiavi” di 3 byte ciascuna, il nome, il nume¬ 
ro di telefono e le cinque linee relative all’indirizzo, occupa¬ 
no i 94 byte restanti. Alla fine di ogni carattere viene inserito 
un CHR$ 128 per ottenere un separatore di “fine linea". 

first Numero del primo socio della lista, 
curr Numero del socio richiamato. 

next Numero del socio successivo da aggiungere in elenco. 


SISTEMI DI EQUAZIONI 


Il programma che segue risolve simultaneamente qualsiasi sistema 
di equazioni lineari (N equazioni di N incognite) a patto che queste non 
siano interdipendenti o inconsistenti. 


10 REM E0UR2IONI SIMULTANEE 
20 LET m=0: LET 1=0: LET j =1 
30 INPUT "Quante variabili hai 
; n 

40 DIM xcn): DIM a<n,n + l): DIM 
b (n , n + 1) 

50 def fn r(u,v)=a(u,v)/a (u ,u) 
60 DEF FN g (u , v ,w) =a (v ,w) -a (u , 
w)*a (v,u) 

70 DEF FN h iu ,v) =X (U) -a (u , V) *X 
(v ) 

100 REM input 
110 FOR C = 1 TO n 

120 CLS : PRINT RT 0,0;"EquaZiO 
ne ”;c;tpb I8 ;n;“ Equazioni";RT 
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20,0 ;"ENTER coefficienti" 

130 FOR d=l TO n: INPUT "X"; Cd) 
“ ; i : LET a (C ,d) =i : LET b(C/ 
d)ai: PRINT RT d+2,1;"X";d;" : ” 

;i: NEXT d 

140 INPUT "Costante CR.H.S.) : " 
;i: PRINT RT d+2,l;"C0S = ";i: L 
ET a Cc ,d) ai : LET b Cc ,d) =i 
150 INPUT "Correzione (y/n) 

TRB 0; C $ : IF C$Cl)a"y" THEN GO + 
0 130 
160 NEXT C 
170 CLS 

200 REM Esecuzione & calcolo 
210 FOR C=1 TO n 
215 LET P saC C , C ) 

220 FOR d = C +1 TO n: LET paaCc.C 
) : IF RBS p > =flBS a(d,C) THEN GO 
TO 240 

230 FOR e al TO n+1: LET Ssa CC,e 
): LET a c c , e ) aa Cd . e ) : LET a(d.e) 
as: NEXT e 
240 NEXT d 

250 FOR d =n +1 TO c STEP -1: IF 
RBS P <1E-5 THEN GO TO 600 
260 LET a C c .. d ) sfN f<c,d) 


270 NEXT d 

230 FOR dac+1 TO n 

290 FOR ean+1 TO C STEP -1: 

a c d; e)aFN g(c , d , e) : NEXT e 

300 NEXT d 

310 NEXT C 

400 REM Ca ICO IO 

410 let x (ri) =a cn ,n + l) 

420 FOR Can-1 TO 1 STEP -1: 
x c c ) sa c c , n + 1) 

430 FOR d=n TO C+l STEP -1: 
X (C) =FN h (C ,d) : NEXT d 
440 NEXT C 


LET 


LET 

LET 


500 REM Output 
510 FOR Cai TO n 

520 FOR dal TO n-1: PRINT b(C,d 
);"*X“;d;“ + next d 
530 print b cc .n) ; " rx" ; d; " = ;b 
C c , d +1) ; TRB 0; 

540 NEXT C 

550 IF lai THEN RETURN 
560 FOR C=1 TO n: PRINT RT 20-n 
+c,i;"X";c;" =";TRB s+ci rnd xcc 

) >a0) ;x (c) : NEXT C 
570 GO TO 710 

600 REM Dipendente o xnconsxste 


600 
n te 
610 
620 


610 FOR Use TO n 
620 FOR ha,; TO ri: 
fc .h +1) : NEXT h 
630 LET à C * , ri ) a® 
640 NEXT K. 


LET a C K,h)aa C 
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650 IF rii OC THEN LET m=C: LET j 
sdì : GO T0 220 

660 LET jsj+1: IF j<n-C+l THEN 
GO TG 220 

670 LET 1=1: GO SUB 500 
6S0 FOR H. =m TO n : IF RBS a < fc. , n + 
1)>1E-5 THEN PRINT RT 21,0; "INCO 
NSISTENTE": GO TO 710 
690 NEXT K. 

700 PRINT RT 21,0;"DIPENDENTE" 
710 STOP 


P 

a(x,y) 

b(x,y) 

x(c) 

FN f (u,v) 

FN g(u,v,w) 
FN h(u,v) 


Elemento pivot 
Array di lavoro 

Coefficiente originale di y(x) nell’equazione x 

Variabile x(c) parte della soluzione 

Aiuta a dividere per il pivot (equazione pivot solamente) 

Aiuta ad eliminare le variabili 

Aiuta a calcolare le variabili. 


1*X1 


2*X2 

+ 

3*X3 

+ 

4*X4 

■ 

10 

4*X1 

+ 

3 *X2 

+ 

2*X3 

+ 

1*X4 

8 

10 

0 *X1 

+ 

0 *X2 

+ 

1*X3 

+ 

1#X4 

8 

2 

1*X1 


1 *X2 

+ 

1 *X3 

+ 

0*X4 

S 

3 


XI = 1 
X2 * 1 
X3 a 1 
X4. = 1 
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BANCA 


Situazione 2/12/84. 
Bitancio Gennaio 


fi) Mario Rossi 

assegno £73.00 

entrate 2 a 4 non mostrate 
Bilancio totale £ 0.00 


D’ora in poi potrete amministrare le vostre finanze nel modo più ade¬ 
guato! 

Questo programma dispone di un file che può mettere a disposizione 
fino a 99 entrate ognuna delle quali contenenti una descrizione, la data, 
il tipo di transazione e l'ammontare della cifra. Il tutto è organizzato at¬ 
torno ad un menù principale che vi permette le seguenti scelte: 

— ottenere una vista singola o panoramica delle entrate. Entrambe le 
funzioni possono essere sia visualizzate sullo schermo che stampate 
su carta: 

— inserire un Credito (Riscossione) o un Debito (Pagamento); 

— fare una correzione: 

— registrare il programma. Lo fa in modo che questo si autolanci al ca¬ 
ricamento. Il nome é il titolo usato all'Inizio. 

Quando il data file è pieno, si rinnova automaticamente, cancellando 
i primi 89 ingressi e spostando i rimanenti 10 a formare l’inizio del nuo¬ 
vo file. State quindi attenti quando vi restano poche righe a disposizio¬ 
ne! Se per qualche ragione il programma si bloccasse, fatelo ripartire 
con GO TO 100 e non con RUN per la solita ragione. Il programma fa 
un uso insolito di PRINT per dirigere i dati sullo schermo (PRINT #2;) o 
alla stampante (#3;). 
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( 2 )...credito 


(3) 


.Debi to 


(4.) .. .e» lanci 
..Co r rez 


„ 10 Diti C * ( 100, 12) : DIM d $ ( 100 , 
8) : DIM ri*(100,12) 

20 DIM (A (100): DIM b$(32) 

30 LET n“0 : LET i*l: LET t=0: 
LET 0=2: LET jsl: LET i* = "" 

■10 DEF FN f * (X ) *STR* (X-100*IN 
T ( X/100)) 

50 CLS : INPUT M ti10 lo" , a $ 

60 GO TO 130 
100 REM Menu' 

110 PRINT RT 21,0;"Quaisiasi ta 
sto per continuare" 

120 PAUSE 0 

130 CLS : PRINT TRB 9;a*'' 

14.0 PRINT RT 3,5; " (1) . . .Si tuazi 
one " 

150 PRINT RT 5,5; 

(Ricezione)" 

160 PRINT RT 7,5; 

(Pagamento)" 

170 PRINT RT 9,5; 

0 " 

180 PRINT RT 11,5;"(5) 
ione" 

190 PRINT RT 13,5;"(6)...Save " 

'200 IF i>96 THEN PRINT RT 19,4; 
100-i;" Entrate lasciate prima"' 

' FLASH 1; INK 2;"rinnovo automa 
ti co a file pieno" 

21© INPUT TRB 5;“scelta operazi 
one ";K: IF K. < 1 OR k >6 THEN GO 
TO 210 

220 PRINT RT 19,0;b*''b* 

230 GO SUB ( k *200 + 100) 

240 GO TO 100 
300 REM Situazione 
310 PRINT RT 3,4; 

320 INPUT "Screen (1) o Paper ( 
2) 7 " ; 0 : IF OOl AND 0 02 THEN 
GO TO 320 

330 INPUT “Entrate da ";e;" a " 
;f: IF f > = i THEN LET f*i-l 
340 IF f<l THEN LET f=l 
350 IF ed THEN LET e=l 
360 IF e > f THEN GO TO 330 
370 CLS : LET 0=0+1: PRINT «0 ;T 
RB 9;"Situazione";TRB 24;d*(i)'' 
TRB 9; a*' ' 

330 FOR g=e + l TO f+1 
390 print «o''" (";g-1 ;")";trb 

9; n* (g) ; TRB 9; c* (g) ; 

400 LET po=m (g)-m (g-1) : 

9: GO SUB 1010 
410 IF PO <0 THEN PRINT 8 o;"-"; 
420 NEXT g 

430 IF f<I-l THEN PRINT 80''TRB 
5; "Entrate ”;f+l;" a ";i-l;" no 
n mostrate" 


LET x =2 
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4.4.0 LET X =29 : LET 9=i: LET P0=(ft 
( 9 ) 

4.50 print »o;''TAB 5;"Bilancio 
totale"; 

4.60 GO SUB 1000 

4.70 PRINT »o;TRB 5;"- 


4.80 LET 0=2 
4-90 RETURN 
500 REM credito 
510 LET S =1 
520 GO TO 750 
600 REM Rinnovo 
610 FOR C =2 TO 11 
620 LET C* (C) = C* (C+89) : LET I» ( C 
) =m ( C +89) 

630 LET n* (C> =n$ (C+89) : LET d«( 
C):d|(C+89) 

64.0 NEXT C 
650 FOR C =12 TO 100 
660 LET C $ ( C) = b$ : LET m ( C)*0 : L 
ET n$(C)=b*: LET d$(C)=b$ 

670 NEXT C 

680 LET i=12 

690 RETURN 

700 REM Debito 

710 LET S =-l 

720 GO TO 750 

730 REM Credito & Debito 

74.0 PRINT AT K *2 +1,4.; " *“ ; AT 15, 

0 ^50 LET i=i+1: IF i=101 TMEN GO 
syB 600 

760 INPUT "data : giorno ";d;" 
mese ";rri;" anno ";y 
770 LET dt(i)=FN f$ (d) +"/"+FN f 
$ (M) +"/"+FN f $ (y) : PRINT AT 15,2 
; d$ (i ) ; 

780 INPUT "Anìiaontare ";a 
790 LET a =ABS a 

800 LET Ift (i) =.01*INT <100*(a*S + 
rn (i -1) +1E-3) ) 

810 LET X =16 : LET pO =(fi ( i ) -ffi ( i-1 
) : LET 9 =i 
820 GO SUB 1010 

830 PRINT TAB 20; (" Credito" A 
ND S>0); (" Debito" AND S <0) 

84.0 INPUT "Pagante"; ( (CHR$ 8 + "e 
") AND s<0),n*(i): PRINT 'TAB 9; 
n | ( i ) 

850 input "Transazione ";c$m 
: PRINT 'TAB 9;c$(i): IF n=5 THE 
N RETURN 

860 PRINT '"Corretto iy/n) ?" 
870 IF INKEY$ < >"y" AND INKEY$<> 
"n" THEN GO TO 870 
880 IF INKEY$ = "ri " THEN LET q = i- 
1: PRINT AT 21.0;b$: GO SUB 1120 
890 RETURN 
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900 REM Bilancio 
910 LET PO =ABS l» ( i ) : LET X = 13 
920 PRINT RT 16,8;"Bilanci 0 ",b$ 
,b*.,b*;flT 20,0; 

930 GO SUB 1010 

94.0 IF hi ( i ) < 0 TMEN PRINT INK 2; 
FLASH 1; AT 21,8; '‘CONTO IN ROSSO 


950 RETURN 

1000 IF hi ( g ) <0 THEN PRINT #0 ; TAB 
X-LEN STR$ INT ABS PO-3;"-"; 
1010 LET P È=STR$ INT (100*(ABS P 
O -INT (ABS PO + .001) ) +. 1) 

1020 IF LEN p $ <2 THEN LET P$="0" 

1030 PRINT «o;TAB X-LEN STR$ INT 
(.1+ABS PO) -2;"£";INT (.001+ABS 
pò) ; " . p$; 

104.0 RETURN 

1100 REM Correzione 

1110 PRINT AT 11,4.;"*": INPUT "Q 

uaie entrata ? ";q: IF q<=0 OR q 

>=i THEN GO TO 1110 

1120 PRINT AT 11,4.;"*”: INPUT "d 

-cancella a-aitera ";q$ 


1130 IF q$ < >"d" AND q$<>"a" THEN 
GO TO 1120 

114.0 LET n =5 : LET q = INT (q+.S): 
IF q*="d" THEN GO TO 1230 
1150 INPUT "Credito (1),Debito ( 
2) ";K: IF KOI AND K 02 THEN GO 

TO 1150 

1160 LET ii=i: LET KsK+1: LET i= 
q: LET p=m(q + l) 

1170 GO SUB K*200+100 

1180 FOR d=q+2 TO ii+(l AND ii<= 

99) 

1190 LET W =ftl (d ) +m (q + 1) -P : LET Ih ( 
d)=.01*SGN W *INT (ABS w*10O+.l) 
1200 NEXT d 

1210 LET n =0 : LET i=ii 

1220 RETURN 

1230 LET p =h'i (q + 1) 

124.0 FOR d=q + l TO i 

1250 LET hi (d) =.01*INT ((hi(d+l)-P 

+h) (q) ) *100+ . 1) 

1260 LET n $ (d)=n * (d + 1) : LET C$(d 
) = C $ ( d +1 ) : LET d$ (d) =d$ (d + 1) 

1270 NEXT d 

1280 LET n=0: LET hi ( i ) =0 : LET i = 
i -1 

1290 RETURN 
1300 REM save 

1310 LET Z$=(a$ AND LEN a*<=10): 
IF LEN a $ >10 THEN LET Zi=a$( TO 
10 ) 

1320 SAUE Z $ LINE 14-00 

1330 PRINT AT 17.0;a*'"Registrat 

o a$"'z$ 


" ; q$ 
q $ < > " a ' 


THEN 
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134.0 PRINT RT 20.0,"Fa partire i 
L nastro per UERIFY"'"poi premi 
un tasto qualsiasi" 

1350 PRiJSE 0 
1360 UERIFY Z$ 

1370 RETURN 

14.00 CL3 : GO SUB 1340: GO T0 10 
0 


! 
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CAPITOLO 14 

PROGRAMMI DI UTILITÀ, 
STRANEZZE E ROUTINE 
RICORRENTI 


? 



AVVISO PERMANENTE 

Se desiderate che nella prima riga dei vostri programmi appaia una 
istruzione REM contenente il vostro nome o qualche altro avviso, tipo 
copyrigt, impostatela ed eseguite: 

POKE 1+PEEK 23635+256*PEEK 23636,0 

Questo accorgimento darà alla linea il numero 0 in modo da non po¬ 
terla più cancellare o cambiare. Con un po’ di pratica potrete facilmen¬ 
te cambiare il numero di linea in altri modi più consoni, effettuando il 
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POKE di qualsiasi altro valore, come ad esempio “1”. Una protezione 
più raffinata per il vostro messaggio di avviso (che vi permetta di pro¬ 
teggere anche più di una riga) la otterrete nel modo seguente: 

— battete, come prima cosa, la riga o le righe da proteggere; 

— eseguite 

POKE PEEK 23635+256*PEEK 23636,49 

(potete anche effettuare un POKE per qualsiasi altro valore compreso 
tra 40 e 63). L'accorgimento modifica il numero della prima linea in una 
lettera o in un qualsiasi altro simbolo seguito da tre numeri; 

— impostate il resto del programma. 

All’esecuzione del POKE, le linee interessate si trasferiranno alla fine 
del programma, da dove è assai complicato smuoverle o cancellarle, in 
quanto l’indirizzo a cui dovrebbe essere eseguito il nuovo POKE, an¬ 
drebbe fatto ad una locazione di memoria superiore a quelle usuali, li 
"non plus ultra” si ottiene adottando la procedura appena descritta ed 
in più effettuando un POKE maggiorato di 64. In tal modo la linea (o le 
linee) scomparirà e, pur restando memorizzata nell'area di program¬ 
ma, non verrà listata. 


CONTROLLO RAM 

Avete mai avuto la sensazione che la vostra RAM o parte di essa fos¬ 
se in procinto di andare fuori uso? 

Se sì, questo programma vi potrà, in futuro, aiutare. Esso esegue il 
controllo completo di tutta la RAM del sistema, eccetto che per le aree 
riservate al programma, al display e agli attributi. Effettua i POKE di una 
sequenza di numeri interi casuali quindi dei PEEK, allo scopo di verifi¬ 
care la loro presenza. Eseguita la passata di tutta l’area interessata, 
sullo schermo verrà presentato un "OK” se tutto è in ordine; viceversa 



204 



apparirà "Guasto a”, seguito dall'indirizzo della locazione guasta. La 
sequenza di controllo si ripeterà finché non la fermerete, o finché non si 
esaurisca lo spazio sullo schermo. Al RUN il programma vi chiede l’in¬ 
dirizzo di partenza, che dovrà essere maggiore o uguale a 24500, poi 
quello di arrivo, minore o uguale a 65536 (32768 per la versione 16 K). 
Il controllo avviene naturalmente tra i due indirizzi. Il programma ripor¬ 
tato è stato steso per Spectrum privi di Microdrive, in caso contrario 
dovrete elevare l’indirizzo più basso di partenza (24500), per far posto 
all’area RAM necessaria al Microdrive stesso. Oltre al controllo del- 
l’hardware, un tale programma può servire, ad esempio, per verificare 
se il vostro computer è soggetto ad interferenze elettriche, interessan¬ 
do solo una piccola area di RAM (circa 200 byte) per risparmiare tem¬ 
po. 


^„ GLERR 24508 
RND0MIZE : LET f 
110 PRINT "Da l l 
120 INPUT a : IF 
THEN GO TQ 120 
130 PRINT ajTRB 
140 INPUT b: IF 
THEN GO TO 140 
150 PRINT b' 

200 RRNDOMIZE f 
210 FOR c =a TO 
56*RND): NEXT C 
220 RRNDOHIZE f 
230 FOR C=a TO 
T ( 256 *RND) THEN 
a ”;c: LET e =e + 1 
240 NEXT C 
250 IF e>0 THEN 
re a questo pass 
260 IF e =0 THEN 
270 LET r=INT ( 
280 GO TO 200 


LET S=24500: R 
=INT (1000#RND) 
indirizzo; " ; 
a <s OR a >65535 

23; "R ;”; 
b < =a OR b>65535 


b: POKE C,INT (2 

: LET e =0 
b: IF PEEK COIN 
PRINT -"Guasto 


PRINT 'e;" erro 

° PR INT " OH. ”; 
1000 *RND) 


100 

110-150 

200 

210 


Abbassa la RAMTOP in modo che l’area RAM al di sopra di 
24500 si libera, quindi estrae un punto di partenza casuale. 
Riceve dall’operatore gli indirizzi di partenza e di arrivo. 
Predispone il numero di partenza della sequenza dei numeri 
casuali. 

Riempie la RAM da controllare con interi casuali. 
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220 Resetta il punto di partenza della sequenza random. 

230-240 Controlla che tutte le locazioni provate contengano i valori 
originali. 

250-260 Scrive il risultato del test. 

270-280 Estrae un nuovo numero di partenza per la prossima se¬ 
quenza casuale quindi torna per un altro test. 

Noterete che il programma è abbastanza lento; infatti impiega circa 
un minuto per controllare 1 Kbyte di RAM. 


CONTROLLO ROM 

Il programma, che gira in circa tre minuti, testa il contenuto della 
ROM del vostro Spectrum, sommando i contenuti di ogni byte fino ad 
ottenere il risultato prestabilito. La prova, effettuata su due Spectrum 
perfettamente funzionanti, ha portato al risultato 1926175. Qualora ri¬ 
scontraste valori diversi, i casi sono due: o la vostra ROM è guasta, o il 
vostro Spectrum monta un tipo di ROM più recente. 

Nel secondo caso, potete controllare il risultato con quello ottenuto 
da uno dei vostri amici in possesso di uno Spectrum di tipo uguale al 
vostro. Come già detto, il programma che segue gira solo se allo Spec¬ 
trum non sono collegate periferiche del tipo Microdrive. 

100 LET a-0 

110 FOR b=0 TO 163S3: LET a=a+P 
EEK b: NEXT b 

1S0 PRINT a 
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CATALOGO 


Come saprete, il sistema più semplice per sapere quanto sia stato 
registrato su di un nastro è quello di eseguire il comando diretto: 

CLS: VERIFV "?" 

(Presumendo che non esista un file col titolo 
Per interrompere date il BREAK e per stampare, il COPY. 
Eseguendo tale esperimento sul nastro allegato a questo libro, si ot¬ 
tiene il risultato che segue 

Program; sicleb 
Bytes: lego 
Program : watt 
Bytes: wallg 
Bytes: c 

Program : bubb1esort 
Bytes: meode 
Bytes: char 
Program : evolution 
Bytes: meode 
Bytes: bits 
Program : life 
Bytes: p 
Bytes : p 
Program : draw 
Bytes: c 

Program : montecarlo 
Bytes: p 

Program : character 
Bytes: 

Program : waves 
Bytes: m 

RENUMBER 

Questo programma rinumera parte o tutte le linee di qualsiasi pro¬ 
gramma BASIC, eccetto la propria. Può essere registrato su nastro col 
nome “renumber”, quindi, in caso di bisogno, dovete caricare il pro¬ 
gramma da rinumerare e poi eseguire: 

MERGE "renumber" 
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Caricato il programma di renumber, date 
GO TO 9990 

Il programma vi chiederà per prima cosa il numero di partenza e 
quello di arrivo della parte da rinumerare; se volete rinumerare l'intero 
programma, inserite come valore di partenza 0 e come valore di arrivo 
9989. Vi chiederà poi i nuovi numeri di start e di end nonché lo step che 
stabilirà la spaziatura tra una linea e la successiva della nuova versio¬ 
ne. Tenete presente che il programma cosi trasformato non tiene conto 
di eventuali linee superiori a 9989. Da notare anche che il programma 
non altera i numeri successivi alle funzioni GO TO, GO SUB e RESTO- 
RE, per cui bisognerà provvedere manualmente. 


9990 REM Renumber 

9991 input "Vecchi numeri; parte 
nza " ;rs;TfiB li;"fine ";re'"Nuov 
i numeri ; p a r t $ ri z a " ; r n ; TRB 10; "pa 
sso ";ri 

9992 LET rp =PEEK 23635+256*PEEK 
23636 

9993 LET rV =PEEK 23627+256*PEEK 
23628 

9994 LET r t. =256*PEEK rp+PEEK (rp 
+ 1 ) 

9995 IF rp>=rv OR rl>|-e THEN STO 
P 

9996 IF rt>=rs THEN POKE rp,INT 
(rn/256): POKE rp+1,rn-256*INT > 
rn/256): LET rn=rn+ri 

9997 LET rp=rp+PEEK (rp+2)+256*P 
EEK ( rp+3) +4 : GO TO 9994 


9991 Accetta dall’operatore i numeri di linea degli estremi dell'In¬ 
tervallo da rinumerare. 

9992,9993 Dispone "rp” all’Indirizzo di partenza del programma nell’a¬ 
rea RAM, e "rv” all’indirizzo finale. 

9994-9997 Loop principale eseguito per ogni linea di programma. 

9994 Assegna ad “ri” il numero della vecchia linea. 

9995 Termina se si raggiunge la fine del programma o se si supe¬ 
ra il limite superiore impostato. 

9996 Cambia il numero di linea se il vecchio rientra nel range sta¬ 
bilito. 

9997 Muove il pointer “rp" all’indirizzo di partenza della linea 
successiva, quindi torna alla linea 9994. 
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DA BASE A BASE 


È un utilissimo programma che converte un numero scritto con una 
certa base, in un numero avente una base diversa. La massima base 
che si può manipolare è 36. Le cifre maggiori di 9 sono rappresentate 
da lettere dell'alfabeto (sia maiuscole che minuscole, in quanto il pro¬ 
gramma non fa distinzioni), quindi 12 cifre di un sistema a base ^sa¬ 
ranno: 

01234567S9AB 


Le linee 20-30 stabiliscono che il simbolo grafico CHR$ 155 sia il 
simbolo di equivalenza 


6* b«»t : 2 fi base : 10 
11001001 S 201 


10 REM conversioni tra basi di 
verse 

20 FOR a =0 TO 7: READ d: POKE 
USR CMR $ 155 + a ,d: NEXT a 

30 DATA 0,125.. 0,126,0,126,0,0 
100 INPUT "Da quale base ?";a;' 
"fi qua le base : ?" ;b 
il© INPUT "Da base :";a,"fi base 
: " ; b 

120 INPUT "Che numero vuoi conv 
erti re ' LINE a* 

200 REM da base a a base 10 
210 LET S =0 

220 FOR c =LEN a* TO 1 STEP -1 
230 LET d=CODE a* (0-48-(7 AND 
a* ( c) > = "fi" ) - (32 and a*(c)>="a") 
240 LET s=s+d*at(LEN a*-ci 
250 NEXT C 

300 REM da base 10 a base b 
310 LET b $ = " ": PRINT 
320 LET r=INT (s-b*INT (s/b)+.S 
1 : LET S =INT (S/b) 

330 LET b$ = CHR* (r+48+(7 AND r> 
2)1+b$ 

340 IF SO0 TMEN GO TO 320 
350 PRINT a $TAB 12; CMR* 155; Tfi 
B 16;b*;TAB 9 
370 GO TO 100 
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ROSONI 


Lo statement DRAW, durante il calcolo delle coordinate di parecchie 
centinaia di punti componenti un arco, disegna una parte di cerchio 
raccordando i vari punti con delle linee rette. Di solito, in tutto questo 
non vi è nulla di speciale; però, dando un valore abbastanza alto alia 
terza grandezza che segue DRAW, ne scaturisce un risultato assai 
spettacolare. Fate un esperimento con la routine 

10 INPUT «: PRINT « 

20 PLOT 127,10= DRfiW 0,150,a*PI 

cambiando magari la linea 20 in 

20 PLOT 127,10: DRAW OVER 1; 0,150,**PI 


Altri interessanti rosoni si genereranno inserendo i valori 119, 253, 
261, 383 e 99999. 
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-65536 NON C’È 


La ROM in dotazione allo Spectrum presenta un piccolo neo. Essa 
confonde i valori —65536 e —1E-38. Ad esempio 

PRINT -65534-2 -1E-38 

per cui falsa qualsiasi combinazione di numeri interi negativi la cui 
somma sia -65536. Ciò porta ad altri effetti come 

PRINT INT -65536 -1 

Se siete curiosi provate a battere la seguente routine e valutatene il 
risultato 

FOR *—65530 TO -65540 STEP -1 : PRINT «: NEXT * 


SCREENS 


Un altro difetto della ROM riguarda fa funzione SCREEN$, la quale 
rende il carattere presente alla linea y, colonna x del display. Battete la 
routine che segue 


30 

40 

50 

50 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


hT 0,0 , ’ 
SCREEN* 


IF CODE 


( 0 , 0 ) 
b"+SCREEN$ (0,0) 
CODE SCREEN$ (0,0) 
2+CODE SCREEN* (0,0) 


,0) THEN PRINT 


"=CODE 
"0 K ' 


SCREEN$ (0 


la quale dovrebbe portare a 


* 

* 

ba 

9 ? 

99 

OK 
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mentre invece presenta 

•a 

a 

aa 

97 

97 

Il problema esiste perché lo Spectrum deve prima valutare un'altra 
parte dell’espressione, per poi eseguire SCREEN$. Se la linea 50 viene 
sostituita da 

PRINT CODE SCREEN* 

il risultato è esatto. Per cui è necessario assegnare il valore reso da 
SCREEN$ ad una variabile prima dell’esecuzione. 

Esempio 

LET x*«SCREEN*< > 


STRANI STR$ 

Esiste un problema anche per quanto riguarda la funzione STR$, ma 
solo se si verificano particolari condizioni. 

In generale, l’espressione 

n*+STR* b 

“dimentica" il valore di a$ se “b” è compreso tra —0.999999 e 
+0.999999 (salvo che non sia 0). Potete rendervene conto inserendo 

PRINT "R"+STR* <0. 

che dovrebbe portare ad un risultato del genere 
Re. 1B 

ma che invece dà: 

0.1B 

Per cui è meglio evitare di usare STR$ dopo il segno “+” in una e- 
spressione di stringa, a meno che non siate certi che il valore attribuito¬ 
gli non sia una frazione inferiore a 1. 
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APPENDICE 1 

LOCAZIONI DI PEEK E POKE 


Per la maggior parte dei programmi BASIC non è necessario sapere 
quello che sta facendo il microprocessore Z80 dello Spectrum. Potete 
usare, ad esempio, una variabile senza preoccuparvi di come e dove 
questa viene memorizzata. Userete correntemente l’istruzione PRINT, 
pur senza sapere esattamente quali locazioni del Display File e dell’a¬ 
rea degli Attributi vengono interessate. Tutti questi particolari decisa¬ 
mente noiosi potrebbero essere lasciati allo Z80 e al programma inter¬ 
prete BASIC dello Spectrum insito nella ROM. Senonché, di tanto in 
tanto, è opportuno sapere in dettaglio quanto succede nella macchina, 
per poter esercitare un controllo più diretto sugli avvenimenti di quello 
consentito dal BASIC. PEEK e POKE vi forniscono la chiave per scopri¬ 
re il contenuto delle singole locazioni di memoria, e perfino di modifi¬ 
carlo. In pratica, non si può fare troppo affidamento su tale sistema in 
quanto i particolari delle routine operative dello Spectrum sono, in 
buona parte, protetti in ROM, quindi inaccessibili. Vi sono però, a vo¬ 
stra disposizione alcuni artifizi dei quali potete far tesoro; li elenchiamo 
quindi in questa Appendice. 

Tratteremo, in generale, il contenuto dei singoli byte, che può esse¬ 
re un numero decimale da 0 a 255; verificheremo anche il contenuto di 
coppie di locazioni usate per memorizzare numeri binari di 16 bit (2 by¬ 
te). Poiché lo Spectrum pone al primo posto il byte meno significativo, 
per leggere il contenuto combinato delle locazioni n e n+1, bisognerà 
agire nel modo seguente: 

LET v-PEEK n+256*PEEK <n+l> 
per inserire un nuovo valore 

POKE n,v-256*INT < > : POKE n+1,1NT < v/256 > 
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Variabili di Sistema 


23552 - 23559 8 bytes «STATE 


Sono usate dalle routine ROM dello Spectrum per la lettura della ta¬ 
stiera. Provate ad usare la routine 


10 FOR a=© TO 
£0 PRINT RT a,i 
30 NEXT a 
4-0 GO TO 10 


LET b=a +23S52 
b; M ";PEEK b, 


per vedere cosa succede. 


Gli 8 byte sono suddivisi in due gruppi di 4, per permettere la pres¬ 
sione di un secondo tasto prima che il primo venga rilasciato. Le loca¬ 
zioni da 23556 a 23559 riguardano la metà principale: 23556 conterrà 
255, se non viene premuto nessun tasto; oppure se l’altro gruppo di 4 
locazioni contiene informazioni riguardanti il tasto in quel momento a- 
zionato. 

Premendo un tasto, la locazione 23556 accetta il codice relativo a 
quello stesso tasto senza tener conto della pressione dei tasti CAPS o 
SYMBOL SHIFT. La locazione 23559 memorizza il codice dell’ultimo 
tasto premuto, che ha così modificato questo gruppo di 4 byte. In que¬ 
sto caso, il codice può essere funzione dei tasti CAPS e SYMBOL 
SHIFT. 

La locazione 23558 funge da temporizzatore a scalare, partendo dal 
valore contenuto in REPDEL (Variabile di Sistema contenuta in 23561) 
fino a giungere a 0 per poi ripartire dal valore contenuto in REPPER 
(Variabile di Sistema contenuta in 23562), per poter fornire la funzione 
di ripetizione automatica. 

Anche la locazione 23557 è un temporizzatore utilizzato per la routi¬ 
ne dell’antirimbalzo dei contatti dei tasti. 

23560 1 byte L.RSTK 


Contiene il codice dell'ultimo tasto premuto. Provate 
10 PAUSE 0: PRINT PEEK 23560: GO TO 10 

Al pari di INKEY$, anche questa istruzione non distingue tra le parole 
chiave Extended Mode (quelle scritte in colore verde sopra i tasti e 
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quelle scritte in rosso sotto), oppure la grafica o la scrittura in lettere 
maiuscole (tramite CAPS SHIFT), dagli altri modi possibili della tastie¬ 
ra. Ecco i valori: 


4 

se 

premete 

CfiPS SHIFT 

e 

TRUE VIDEO 

5 

ii 

il 

Il II 

n 

INV VIDEO 

6 

n 

II 

Il II 

H 

CfiPS LOCK 

7 

ii 

II 

Il II 

H 

EDIT 

8 

ii 

il 

Il II 

ii 

< < tasto 5 ) 

9 

n 

II 

Il II 

ii 

<. tasto 8 > 

10 

ii 

M 

Il II 

ii 

Ctasto 6) 

11 

ii 

il 

Il II 

ii 

< tasto 7 > 

12 

ii 

II 

Il II 

M 

DELETE 

13 

ii 

il 

Il II 

•i 

ENTER 

14 

n 

il 

Il II 

n 

SYMBOL SHIFT 

15 

ii 

il 

Il II 

n 

GRfiPHICS 


A differenza di INKEY$, non rileva quanto avviene sulla tastiera, ma 
segnala solamente quale tasto è stato premuto per ultimo. 

23561 1 byte REPDEL 

Contiene il tempo di durata della pressione del tasto, prima che si ve¬ 
rifichi la ripetizione automatica. Tale tempo è espresso in 50esimi di se¬ 
condo (negli USA, in 60esimi). All’accensione del computer o all’istru¬ 
zione NEW la locazione contiene il numero 35. POKando il numero “1”, 
otterrete il tempo minimo, POKando lo “0” avrete un ritardo di circa 5 
secondi. 

23562 1 byte REPPER 

Contiene il ritardo in 50esimi (o 60esimi) di secondo tra due ripetizio¬ 
ni dell'effetto di un tasto quando questo venga tenuto premuto in conti¬ 
nuazione. All’accensione o dopo NEW tale locazione contiene un “5”, 
ma potete variare tale valore in “1” (ritardo minimo) o anche in “0” o 
“255”, che daranno un ritardo talmente lungo da ritenere disattivata la 
funzione di autorepeat. 

POKE 23511,1: POKE 23562,1 renderà la tastiera praticamente inuti¬ 
lizzabile! 

23563,4 2 byte* DEFRDD 

Queste locazioni contengono un numero maggiore di uno rispetto a 
quello dell’Indirizzo RAM relativo alla cifra di sinistra, compresa tra pa- 


215 









rentesi, nella funzione DEF FN. Quando tale funzione non viene valuta¬ 
ta, il contenuto vale 0. Esempio 

10 DEF FN a(x)=PEEK 23563+256* 

PEEK 23564. 

20 PRINT FN a(0),CHR* PEEK FN 

a ( 0 ) 

30 PRINT PEEK 23563+256*PEEK 2 

3564. 

stamperà qualcosa come: 23762 x 

0 

23606,7 2 byte» CHRRS 

Contiene il puntatore alla serie di punti dei caratteri da 32 (spazio) a 
127 (copyright). L'indirizzo iniziale della serie di punti, relativa ad un 
determinato carattere, è dato da 

PEEK 23606+256*PEEK 23607 

L’indirizzo contenuto in CHARS viene normalmente predisposto a 
15360, mentre l’indirizzo della prima serie di punti nella ROM è 
15360+32*8=15616 

Potrete inserire nella RAM serie di punti per formare caratteri com¬ 
pletamente nuovi, per usare i quali sarà necessario eseguire POKE 
23606/7. 

La funzione SCREEN$ riconosce soltanto caratteri compresi tra 
“spazio” e “c”, cioè quelli della tabella delle sezioni di punti contenute 
nella ROM (osservate che i codici dei caratteri grafici “espansi” da 128 
a 143 non appaiono nella tabella). Se desiderate riconoscere i caratteri 
grafici definiti dall’utente, dovrete ridefinire temporaneamente CHARS: 

POKE 23606,PEEK 23675: POKE 23607,PEEK 23676-1 

LET c-CODE SCREEN* <y,x>+112 

POKE 23606,0: POKE 23607,60 

ciò renderà “c” uguale al codice del carattere grafico definito dall’uten¬ 
te, in corrispondenza dei punti x e y sullo schermo. 

23608 1 byt* RfiSP 

Contiene la durata del suono del cicalino in 50esimi (o 60esimi) di 
secondo. All’accensione il suo valore è 64 e non viene influenzato da 
NEW. 
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23689 


1 byte PI P 


Contiene la lunghezza dei “click” che si ode quando si preme un ta¬ 
sto. Vale 0 all'accensione e non viene influenzato da NEW. 

Potrete ottenere un suono più avvertibile POKando un “5”, mentre in¬ 
serendo valori maggiori (ad esempio 20) verrà prodotto un suono tipo 
"beep”. 

23610 1 byte ERR.N 

In questa locazione è contenuto il codice di errore diminuito di uno. Il 
valore solito è -1, letto, tramite PEEK, come 255. 

POKando qualsiasi altro valore, apparirà il relativo codice di errore 
col messaggio visualizzato sullo schermo all’arresto del programma. 

23618>9 2 byte* NEWPPC 

Una istruzione GO TO o GO SUB inserisce in questa locazione il nu¬ 
mero delia linea di destinazione del salto (sottoforma di codice binario 
a 2 byte). 

23620 1 byte NSPPC 

Contiene il numero dello statement inserito nella linea alla quale de¬ 
ve essere effettuato il salto. Di solito il numero è 255. Inserendo, trami¬ 
te POKE, un numero qualsiasi tra 0 e 127, verrà imposto un salto all’i¬ 
struzione che ha il numero di riga contenuto in NEWPCC, per esempio: 

10 POKE £3618;100: POKE £3619; 

0 

£0 POKE 23620.£: PRINT "20" 

30 PRINT "30" 

100 PRINT "100.1": PRINT "100.2 
PRINT "100.3" 

che visualizza 

100.2 

100.3 

È questo il solo modo per saltare ad una istruzione che si trova nel 
mezzo di una linea di programma. 
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23621,2 


2 bytes PPC 


Contiene il numero di linea dell’istruzione in corso di esecuzione (è 
un numero binario a 2 byte). L'inserimento mediante POKE di un altro 
numero, influirà su qualsiasi messaggio di errore causato da questa ri¬ 
ga. Una istruzione GO SUB, memorizzerà il valore di PCC come quello 
della linea alla quale sarà necessario ritornare incontrando un RE¬ 
TURN. Esempio 

100 POKE 23621,10: GO SUB 1000 
causerà un ritorno alla linea 10 invece che a quella successiva alla 100. 

23623 1 byte SUBPPC 

Contiene il numero dell'Istruzione situata entro la linea in corso di e- 
secuzione. Come per PCC, viene usata dalla routine di messaggio di er¬ 
rore ed anch’essa memorizzata per ritorno da qualsiasi GO SUB. 

23624 1 byte BORDCR 

Contiene il numero del colore di border (da 0 a 7) moltiplicato per 8, 
più gli Attributi utilizzati per la metà inferiore dello schermo. La modifi¬ 
ca del valore non provoca alcun effetto, a meno che il POKE non sia se¬ 
guito da CLS oppure INPUT, in questo ultimo caso, alla pressione del 
tasto ENTER, il colore di border varierà. 

2362?,8 2 bytes VRRS 

Contiene l'indirizzo iniziale dell’area delle variabili nella RAM e, 
poiché questo segue immediatamente la fine del vostro programma, 
potrete scoprire quanti sono i byte occupati dallo stesso per mezzo di 

PRINT PEEK 23627+256*PEEK 23628-PEEK 23635-256 

*PEEK 23636 

23629,23630 2 bytes DEST 

Contiene l'indirizzo RAM della variabile di destinazione (cioè quella a 
sinstra del segno “=”), di una istruzione LET. Per cui 
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LET a-PEEK 23629+256*PEEK 23638 

renderà "a” uguale all’indirizzo nel quale è memorizzata. Se la variabile 
“a" non è stata mai usata in precedenza, DEST punterà ad un carattere 
“a" nella linea di programma. Il contenuto di questa locazione può es¬ 
sere impiegato per trovare la cella di memoria usata per una variabile 
numerica. 

23635,6 2 byte® PROG 

Contiene l’indirizzo iniziale del vostro programma BASIC (vedere 
VARS 23627). 

23653,4 2 byte® STKEND 

Contiene l’indirizzo iniziale dello spazio di riserva nella RAM. La RAM 
che si trova tra questo indirizzo e quello dato in RAMTOP (23730/1) 
viene utilizzata soltano per gli stack di macchina e di GO SUB. Il nume¬ 
ro dei bit della zona RAM libera si ottiene con 

PEEK 23738+256*PEEK 23731-PEEK 23653-256* 

PEEK 23654 

23658 1 byte FLRGS2 

Usato per diversi flag del sistema, contiene normalmente uno 0, a 
meno che non sia stato predisposto un CAPS LOCK, nel qual caso con¬ 
terrà un 8. Viceversa un POKE di valore 8, attiverà CAPS LOCK. 

23659 1 byte DF.S2 

Contiene il numero delle linee riservate (compresa una vuota) che si 
trovano nella parte inferiore dello schermo. Si dispone a 2 all’accensio¬ 
ne del computer e tutte le volte che si esegue un comando diretto o una 
istruzione INPUT. Se in questa locazione viene inserito un valore “n" 
(maggiore di 2 e minore di 25), non potrete più eseguire alcun PRINT 
nelle “n" linee in basso. Tali linee verranno cancellate da una istruzione 
INPUT o dall’emissione di un messaggio di errore. POKando il valore 
"1”, stamperete su 23 linee. 

'10 POKE 23659,1 

20 FOR a=0 TO 22: PRINT RT a,0 
,a : NEXT a 

30 PRU5E 100 

4.0 POKE 23659,2 
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Ricordatevi di eseguire nuovamente un POKE di valore ”2” prima 
che il programma termini o esegua un INPUT o un CLS. Inserendo un 
valore 0, vi sarà permesso di scrivere su tutte le 24 linee dello schermo, 
senza poter usare però AT per scrivere sulla 24esima. Per poterlo fare 
dovrete agire come segue: 

PRINT AT 22,3l;TAB 10;"LINE 24" 

Sarà anche qui necessario inserire il valore “2” prima di un INPUT, 
di un CLS o della fine del programma, per evitare il blocco irrimediabile 
del programma. Un simile procedimento sta alla base dei metodi usati 
per impedire a chiunque di copiare o listare il vostro programma. 

23670,1 2 bytes SEED 

Qui viene inserito il generatore di numeri casuali. La locazione con¬ 
tiene uno 0, all'accensione o dopo il NEW, ma viene portato al valore 
dell’argomento di RANDOMIZE (se questo è diverso da 0), oppure al 
numero inserito nella Variabile di Sistema FRAMES da RANDOMIZE o 
RANDOMIZE 0. 

23672,3,4 3 bytes FRAMES 

Conta il numero dei quadri TV in 50esimi di secondo (o in 60esimi). Il 
capitolo 18 del manuale Sinclair riporta una serie di funzioni per ottene¬ 
re il valore totale dei 3 byte interessati. La versione data nella prima e- 
dizione del manuale è errata, in quanto la linea 30 deve essere variata 
come segue 

30 DEF FN t< >»FN m< FN u< >,FN uO> 

Volendo predisporre FRAMES ad un valore particolare, dovrete inse¬ 
rire per primo il byte meno significativo. Esempio 

POKE 23672,0: POKE 23673,0: POKE 23674,0 

23675,6 2 bytes UDG 

Contiene l'indirizzo della prima matrice di punti grafici definita dall’u¬ 
tente, cioè quella destinata a CHR$ 144. Al momento dell’accensione, 
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la locazione prende il valore di P-RAMT (Variabile di Sistema 23732/3) 
diminuito di 167. Il contenuto di questa locazione non viene influenzato 
da NEW. Se avete assoluta necessità di spazio in memoria e non volete 
utilizzare tutti i 21 caratteri definiti dall’utente, potete eseguire POKE 
UDG con un valore più elevato, ricordandovi però di abbassare RAM- 
TOP di uno rispetto a tale valore, usando una istruzione di CLEAR. Per 
esempio, volendo eliminare completamente lo spazio riservato in me¬ 
moria ai caratteri grafici definiti dall’utente, dovrete battere: 

Pnk'F ^"5*5 

POKE 23676*255 <o 127 per Spectrum 16 K> 

CLEfiR 65534 Co 32766 per Spectrum * 16 K) 

tenendo presente anche le note riguardanti la Variabile di Sistema 
CHARS (23606/7) 

23677 1 byte K-COGRD 

23678 1 byte Y-COORD 

Queste locazioni contengono le coordinate X e Y dell’ultimo punto 
tracciato e vengono utilizzate come punto di partenza per i comandi 
DRAW e CIRCLE. Pertanto un POKE in una di queste locazioni influen¬ 
zerà la successiva operazione di DRAW o di CIRCLE. 

23679 1 byte P.POSN 

Contiene il valore 33 meno il numero della colonna in cui apparirà il 
successivo carattere stampato con LPRINT. Se, ad esempio, questa lo¬ 
cazione contiene "33”, il carattere successivo comparirà nella colonna 
“0”, mentre il valore “2” farà apparire il successivo carattere alla fine 
della linea. 

Il valore “1” indica che è già stato stampato il 32esimo carattere di 
quella linea, ma che la posizione di scrittura non è ancora stata trasferi¬ 
ta alla linea seguente. Un POKE a questa locazione non ha, di per sé, 
effetto alcuno. 

23680 1 byte PR.CC 

Il manuale dello Spectrum riporta che in questa locazione è contenu¬ 
to il byte meno significativo dell’indirizzo della posizione successiva, ri¬ 
ferito al buffer della stampante. É 0 quando il buffer è vuoto e viene 
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incrementato di 1 ad ogni carattere stampato mediante LPRINT. PO- 
Kando altri valori, influenzerete la posizione del carattere successivo 
da stampare, a patto che il valore inserito si adatti a P POSN (23679) 
per il riconoscimento di fine riga. 

23688 1 byte S.POSN 

Contiene 32 meno il numero di colonna della posizione di PRINT sul¬ 
lo schermo. È analoga a P POSN e un POKE in tale locazione non ottie¬ 
ne alcun effetto. 

23689 1 byte 

Contiene 24 meno il numero di linea della posizione di scrittura sullo 
schermo. Il POKE di un nuovo valore influenza la posizione dei caratteri 
stampati dopo la successiva istruzione di PRINT, oppure dopo il suc¬ 
cessivo simbolo dì interlinea (’). Potete usare questa locazione assie¬ 
me alla Variabile di Sistema 23688 per verificare l’attuale posizione di 
scrittura sullo schermo. 

23692 1 byte SCRCT 

All'accensione e dopo NEW e RUN contiene il valore “1”, mentre pri¬ 
ma di arrestare il listato del programma e porre la domanda "scroll?” 
contiene il numero di righe visualizzate più uno, e viene reinizializzato a 
22 se premete un qualunque tasto diverso da N o BREAK. Effettuando il 
POKE di un valore opportuno in questa locazione di memoria potete ot¬ 
tenere lo scroll automatico del listato sul video. Per avere la massima 
lunghezza possibile di scroti automatico usate: 

POKE 23692,0 

23693 1 byte RTTR.P 

Contiene gli Attributi permanenti generati dalle istruzioni FLASH, PA¬ 
PER ecc. Si predispone a 56 all’accensione e al comando NEW. Con un 
POKE di adeguato valore, potete predisporre tutti gli Attributi Perma¬ 
nenti in una sola volta, oppure (tramite PEEK 23693), rilevare i loro va¬ 
lori. 
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23694 


1 byte MRSK.P 


Riguarda gli Attributi Permanenti “trasparenti”. Ogni bit a livello “1”, 
eguaglia il corrispondente attributo a quello già in atto sullo schermo 
nella posizione considerata, anziché a quello contenuto in ATTR P. Il 
contenuto viene azzerato all’accensione o al NEW. 

23730,1 2 bytes RRMTOP 

Contiene l’indirizzo dell’ultimo byte dell’area di sistema del BASIC 
nella RAM, che è inferiore di uno a quello del primo byte dell’area dei 
caratteri grafici definiti dall’utente (UDG). Il contenuto di questi due by¬ 
te è predisposto a 65367 (per lo Spectrum a 48 K), oppure a 32599 (16 
K) all’accensione del computer. Questi valori non vengono influenzati 
da NEW. Un POKE alla locazione non provoca alcun effetto; potete 
cambiare RAMTOP solo con una istruzione CLEAR n. 

23732,3 1 byte P-RRMT 

Contiene l’indirizzo dell’ultimo byte di RAM del sistema. All’accensio¬ 
ne vale 65535 (48 K) oppure 32767 (16 K). POKE di diversi valori non 
hanno alcun effetto. Questa variabile viene di solito usata per comuni¬ 
care al programma su che tipo di Spectrum sta funzionando: 

IF PEEK 23733-255 THEN PRIHT "48K" 


Display File 16384-22527 

Non ha in realtà molto significato effettuare PEEK o POKE nell’area 
del display file della RAM, in quanto le istruzioni PLOT, PRINT, POINT e 
SCREEN$ eseguono sempre le necessarie funzioni con maggior faci¬ 
lità. Questa breve descrizione mira più che altro a mostrarvi il funziona¬ 
mento del display file. 

La posizione di ogni carattere sullo schermo, corrisponde ad 8 byte 
di RAM, ciascuno dei quali determina una riga di 8 punti. La locazione 
RAM del byte più alto di un carattere è data da: 

16364 +32*< y+56* I NT <. y-' S > >+x 
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dove “x" e “y” sono le stesse usate in una istruzione PRINT AT y, x. Gli 
altri sette byte per la posizione del carattere sono disseminati nella 
RAM ad intervalli di 256 byte. Vale a dire che l’indirizzo del byte che 
corrisponde alla seconda riga di punti in un carattere, ha un valore più 
alto di 256 rispetto a quello della prima fila in alto, e l'indirizzo dell’ulti¬ 
mo byte possiede un valore pari a 7x256 volte quello della prima riga. 


Come dimostrazione provate: 


100 FOR y =0 TO 23: 1F y<=21 THE 
N Print hT y,15;y 
110 LET p=16384+32*<y+56*INT iy 
/Sì ) 

120 FOR X=0 TO 31 5TEP 8 
130 FOR r=0 TO 7: POKE p+X+r+25 
6*r ,BIN 10101010: NEXT f 
140 NEXT X : NEXT y 
150 PAUSE 0 


Il programma mostra il modo (anche se non molto pratico) di dise¬ 
gnare un grafico sulle ultime due righe dello schermo. 


Area degli Attributi 22528-23295 

Questa area di RAM contiene i byte degli Attributi per ciascuna del¬ 
le 24x32 posizioni di carattere sullo schermo. La locazione di memoria 
del byte che corrisponde al carattere posto nella riga y, colonna x, sarà 

22528+x+32*y 

É più facile cambiare i contenuti usando l’istruzione 
PRINT OVER 1 ; RT y,x;" '• 

che comprende una funzione temporanea PAPER, BR1GHT, INK o 
FLASH ed esaminare il contenuto con 

ATTR <y,x> 
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Per controllare se POKE funziona, usate la seguente routine che 
cambia il colore di PAPER a tutte e 24 ie linee. 

s l|0 TO 21: PRINT RT à .. 1 

Ì10 FOR p=0 TO 56 STEP 8 

120 FOR X=0 TO 31: FOR y =0 TO 2 

130 POKE 22528+X+32*y,p 
140 NEXT y: NEXT X : NEXT p 


Buffer Stampante 23296-23551 

Questa area di RAM contiene l’immagine dei punti di una fila di 32 
caratteri destinata alla stampante e, inoltre, una serie di zeri impiegati 
all’accensione, dopo un NEW, e dopo avere inviato una riga alla stam¬ 
pante. I primi 32 byte contengono le righe di punti superiori di tutti i 32 
caratteri; i successivi 32 byte riguardano le seconde righe, e cosi via. 

Avrete la dimostrazione battendo la routine 


100 LPRINT "R"i. 

110 FOR a=23296 TO 23551 
120 IF PEEK a < >0 THEN PRINT a;T 
RB 8;a-23296,PEEK a 
130 NEXT a 
140 LPRINT 


che visualizzerà 


23328 

32 

60 

00111100 

2336® 

64 

66 

01000010 

23392 

96 

66 

01000010 

23424 

128 

126 

01111110 

23456 

168 

66 

01000010 

23488 

192 

66 

01000010 


(la trascrizione in binario, riportata sulla destra, è stata aggiunta in se¬ 
guito) 
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Area di Programma 

È un’area della RAM che inizia all'indirizzo contenuto nella Variabile 
di Sistema PROG (23635/6) e termina immediatamente prima dell’indi¬ 
rizzo contenuto nella Variabile di Sistema VARS (23627/8). Natural¬ 
mente, è usata per contenere i vostri programmi BASIC. Possiamo ve¬ 
dere come il programma sia effettivamente allocato nella RAM, me¬ 
diante una routine del tipo sotto indicato, che stampa tre colonne relati¬ 
ve a: 

— l’indirizzo della locazione di RAM da controllare; 

— il contenuto di questo indirizzo, espresso in numeri decimali interi; 

— i contenuti degli indirizzi espressi, nei limiti del possibile, da uno dei 
caratteri o delle parole-chiave dello Spectrum. 

5 REM a bcd 

100 LET a =PEEK 23635+256*PEEK 2 
3636 

110 PRINT 'a.;’’ ’’;PEEK a; 

120 IF PEEK a>=32 THEN PRINT Tfi 
B 10;CHR$ PEEK a; 

130 LET a =a +1 : G0 TG 110 


Nella riga 5, potrà essere impostato qualsiasi tipo di istruzione desi¬ 
deriate. In questo caso, abbiamo scelto una semplice istruzione REM, 
e, con l’aiuto del capitolo 24 del manuale Sinclair, è possibile interpre¬ 
tare il risultato dell’esecuzione di questa routine. 


23755,6 

Line* numero 5 

23755 

0 


23757,8 

Lunghezza 6 bytes 

23756 

5 


23759 

Parola REM 

23757 

6 


23760,3 

Caratteri dopo REM 

23758 

0 


23764 

Fine del codice linea 

23759 

234 

REM 

23765,6 

Linea numero 100 

23760 

97 

a 



23761 

98 

b 



23762 

99 

c 



23763 

100 

d 



23764 

13 




23765 

0 




23766 

100 

d 
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Canali 

L’area di RAM relativa ai canali d’informazione, comprende quattro 
sezioni operative da 5 byte che occupano le locazioni da 23734 a 
23753 (lo Spectrum non deve essere equipaggiato di Microdrive). I pri¬ 
mi due byte di ciascuna sezione operativa contengono gli indirizzi della 
routine ROM, usata per stampare i dati, i successivi due byte conten¬ 
gono sia l’indirizzo della routine ROM utilizzata per ottenere l’input da 
tastiera, che l’indirizzo di una routine che fornisce il messaggio di erro¬ 
re “INVALID I/O DEV”. Il quinto byte di ciascuna sezione, contiene ri¬ 
spettivamente il codice ASCII dei caratteri K, S, R e P. 

I comandi PRINT, LPRINT e INPUT possono essere seguiti dal sim¬ 
bolo (#). Per esempio, in PRINT # n, “n” è noto come numero di cana¬ 
le. I canali 0 e 1 impiegano il primo ingresso dell’area RAM per scrivere 
nella metà inferiore dello schermo e per impostare dati mediante tastie¬ 
ra. 11 canale 2 usa il secondo ingresso e si occupa della scrittura sulla 
metà superiore dello schermo. Il canale 3 usa il quarto ingresso per in¬ 
viare i dati alla stampante. 

INPUT #2 e INPUT #3 forniscono il messaggio di errore “INVALID 
I/O DEV”. Di conseguenza, PRINT #3 può essere usato al posto di 
LPRINT, e PRINT #0 è un modo per scrivere sulla parte inferiore dello 
schermo, normalmente riservata ad INPUT ed ai messaggi di errore. 
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APPENDICE 2 

VELOCIZZAZIONE 


Desiderando far girare un programma il più velocemente possibile, è 
necessario conoscere quanto tempo impiega lo Spectrum per eseguire 
ogni operazione. Lo potrete facilmente scoprire da soli usando la routi¬ 
ne che segue, la quale fornisce il tempo in ms (millisecondi, millesimi 
di secondo) necessario ad eseguire un certo numero di righe, numera¬ 
te da 1000 a 1999. 


10 PQKE 23672,0: POKE 23673,0: 
POKE 23674.0 

20 FGR i=l TO 100: GQ SUB 1000 
: NEXT i 

30 LET t=PEEK 23672+256*PEEK 2 
3673 +65536+PEEK 23674 

40 PRINT RT 0,0;(t-39)/5 
50 STOP 
2000 RETURN 


Facendo girare la routine così come è, otterrete il risultato “0”, men¬ 
tre aggiungendo una linea come ad esempio 

1000 LET *-.5 

e dando nuovamente il RU N, apparirà il risultato di 1,8 ms che è il tem¬ 
po impiegato dallo Spectrum per eseguire la linea aggiunta. Variando la 
linea 1000 potete ricavare i tempi di qualsiasi funzione; troverete che lo 
Spectrum impiega da 2 a 4 ms per sommare o sottrarre due numeri e 
da 4 a 5 ms per dividere o moltiplicare, a seconda dei valori. L'operato¬ 
re di elevazione a potenza (T) è tra i più lenti, richiedendo ben 110 ms 
per calcolare .5T.5. Gli operatori logici (=, <>,<=,>=) impiegano da 3 
a 4 ms, come si può vedere battendo la linea 

1000 LET a-2?<33 
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Espressioni di stringa del tipo 

LET «•-"TIMEX" 

LET + 


impiegano da 3 a 6 ms, secondo la lunghezza delle stringhe stesse. Ec¬ 
covi i tempi caratteristici per le diverse funzioni. 


SIN. 5 

44mS 

ASM. 5 

1 83mS 

TRW. 5 

89mS 

ATN.5 

62mS 

C0S.5 

45mS 

ACS.5 

185roS 

LN.5 

71 rnS 

EXP.5 

43m8 

SOR. 5 

lllmS 

SGN.5 

3mS 

I NT. 5 

3r<ìS 

ABS.3 

3rnS 

BZN 10101010 

3mS 

PI 

3mS 

ATTR<0,0> 

SmS 

POINT <0,0> 

5mS 

PEEK 1000 

3mS 

IN 1000 

3mS 

VAL".5" 

13mS 

STR*. 5 

22mS 

CHR*32 

6mS 

INKEY* 

4mS 

CODE "a" 

3mS 




VAL"1234.5678" 41mS 


SCREEN* <0,0) da 7 a llmS in funzione del carattere. 


e quelli riguardanti istruzioni di stampa e di disegno 


PRINT 

2roS 

PRINT.5 

17mS 

PRINT"A" 

3mS 

PRINT"ABCDEFGHIJKL" 

8mS 

PRINT"A"; 

3mS 

PRINT"A", 

10mS 

PRINT TAB 0; M A n 

4mS 

PRINT TAB 30;"A" 

19mS 

PRINT AT 0,0;"A" 

6rnS 

PLOT 100,100 

3mS 

PLOT 100,100: DRAW 

0,0 

SmS 


PLOT 100,100: DRAW 

100,50 

25mS 


PLOT 100,100: DRAW 

100,50,1 

600mS 


CIRCLE 100,100,50 


800mS 



I comandi temporanei INK, PAPER, FLASH, BRIGHI, OVER e IN¬ 
VERSE richiedono circa 2 ms per l’esecuzione. Quando lo Spectrum e- 
segue una delle istruzioni GOTO, GOSUB, RETURN, RESTORE, NEXT, 
oppure una FN definita dall’utente, deve cercare la linea a cui andare 
scorrendo l’intero programma a partire dall’inizio. Per sondare ciascu¬ 
na riga ci vogliono 0,3 ms, per cui un ciclo FOR NEXT che abbia inizio, 
ad esempio, alla lOOesima linea, non potrebbe seguire più di 30 loop al 
secondo. Per tale motivo, i loop usati più frequentemente vanno posti 
all’inizio del listato. Oltre al tempo di ricerca, le istruzioni GO TO, GO 
SUB, RETURN e RESTORE richiedono ciascuna da 1 a 3 ms circa e 
NEXT circa 4. Il tempo di ricerca nell’area RAM delle variabili incontra¬ 
te durante il programma, vale 0.05 ms per ognuna (gli array contano 
come le variabili). 


230 




APPENDICE 3 

ALTRI BASIC 


Potete trovare una grande quantità di programmi scritti in BASIC sia 
in altri libri che su riviste specializzate; sfortunatamente, però, esistono 
molte versioni di BASIC che, pur simili, non sono intercambiabili, per cui 
un programma scritto per altri computer non girerà sullo Spectrum, se 
prima non viene adeguatamente modificato. Se desiderate effettuare 
tali modifiche, consultate i paragrafi che seguono, i quali riportano le 
differenze principali tra i più diffusi “dialetti” del BASIC. Tenete presen¬ 
te che la vastità ed il tipo di modifiche necessarie dipenderanno dalla 
struttura del programma da convertire, dal modo di gestire i dati e, co¬ 
sa più importante, dalle caratteristiche di visualizzazione sullo schermo 
di una particolare macchina. Per risparmiare tempo, dovrete necessa¬ 
riamente capire la struttura del programma, prima di farlo girare. 



Righe con istruzioni Multiple 

La maggior parte dei BASIC permette di scrivere, come avviene per 
lo Spectrum, più di una istruzione sulla stessa riga. 


231 



Variabili 

La maggior parte dei BASIC moderni usa l’aritmetica a virgola mo¬ 
bile, con variabili analoghe a quelle dello Spectrum, ma alcuni permet¬ 
tono anche di specificare variabili intere aggiungendo, di solito, al no¬ 
me della variabile il simbolo %. Di conseguenza: 

A indicherebbe una variabile a virgola mobile; 

A% indicherebbe invece una variabile intera. 

Quest’ultima è una variabile che può assumere esclusivamente valo¬ 
ri interi (senza decimali) di solito usata perché occupa meno spazio in 
memoria che non quelle a virgola mobile e anche perché l’aritmetica 
delle variabili intere é assai più veloce. In questi casi non vi è alcun pe¬ 
ricolo ad usare le variabili a virgola mobile dello Spectrum, anziché 
quelle intere. Talvolta il programma può ricorrere all'aritmetica intera, 
specialmente nella divisione tra numeri il cui risultato debba essere ar¬ 
rotondato al valore inferiore, per dare appunto un numero intero. Se ri¬ 
tenete che questo sia il caso, usate la funzione INT per rendere intero il 
risultato di una divisione. Ad esempio: 

10 LET C5'.=Y/'100 
diventerebbe 

10 LET C®INT <Y/'100> 

Alcuni BASIC, come per esempio Nnteger BASIC dell’Apple II ed il 
BASIC del vecchio ZX80 da 4K, non hanno la possibilità di usare la vir¬ 
gola mobile; tutte le loro variabili sono perciò di tipo intero, anche se 
non sono seguite dal segno %. 

La maggior parte dei BASIC che permettono di usare sia lettere 
maiuscole che minuscole, distinguono tra queste due forme, cosicché 
"A” risulterebbe una variabile diversa da ‘‘a". Ciò non avviene invece 
con lo Spectrum. 


Array 

Non ci dovrebbero essere difficoltà nell’uso delle matrici numeriche, 
in quanto lo Spectrum è in questo caso uguale alle altre macchine, ma 
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occorre ricordare che la maggior parte dei BASIC impiega, per gli 
array, indici che iniziano da 0 e non da 1. Di conseguenza, DIM A(3) 
definisce di solito una matrice di quattro elementi, da AO ad A3. Per lo 
Spectrum, invece, questa sarebbe una matrice di tre elementi, da A(1) 
ad A(3). Gli array di alcuni BASIC usano nomi di variabili costituiti da 
più caratteri. Nello Spectrum questi nomi dovranno essere convertiti in 
caratteri singoli. Gli array di stringhe dello Spectrum sono molto slmili a 
quelli della maggior parte degli altri BASIC (tranne per il fatto che, an¬ 
che in questo caso, gli altri dialetti fanno partire la numerazione degli 
indici da 0 anziché da 1). Esistono, però, differenze nel modo in cui 
concepiscono la lunghezza delle stringhe in una matrice. L’istruzione 
DI M, oltre a definire in numero di stringhe in una matrice, definisce an¬ 
che la lunghezza massima di ciascuna stringa, in quanto, se queste so¬ 
no troppo lunghe, viene emesso il segnale di errore. Lo Spectrum, dal 
canto suo, regola la lunghezza di una stringa in modo da adattarla esat¬ 
tamente alla lunghezza DIMensionata per la stringa stessa. Questo 
può, talvolta, creare qualche problema quando viene eseguito il con¬ 
fronto tra due stringhe, di cui una compresa in un array. Potreste tro¬ 
varvi di fronte ad una istruzione DIM di stringa come la seguente 

DIN fl*<2,2> C103 

che definisce un array di stringhe 2x2 (oppure 3x3), nella quale cia¬ 
scun elemento ha una lunghezza massima di 10 caratteri. Ciò equivale 
alla forma Spectrum 

DIN R*<2,2,10> 
oppure 

DIN ««3,3,10) 


Taluni BASIC richiedono che tutte le variabili stringa (anche quelle 
che non sono array) siano dimensionate in modo da riservare loro il ne¬ 
cessario spazio in memoria. Altri BASIC necessitano di istruzioni DIM 
esclusivamente per variabili di stringa, che si suppone siano più lunghe, 
per esempio, di 10 caratteri. In questi casi, potreste incontrare linee di 
programma come la seguente 

DIN B« 15 ) 
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superflue nella versione Spectrum. Alcuni BASIC permettono il dimen¬ 
sionamento di più matrici con una sola istruzione DI M. Ciò non può es¬ 
sere fatto con lo Spectrum, di conseguenza: 

10 DIM R<2,2>,B<50> 
dovrà essere riscritta così: 

10 DIM l=K2,2>: DIM B< 50 > 


Funzioni Aritmetiche 

Le funzioni aritmetiche usate dallo Spectrum, sono molto simili a 
quelle disponibili su altri computer tranne per il fatto che alcuni BASIC 
usano il simbolo "**” anziché quello “1” per l’innalzamento a potenza. 

Alcuni computer hanno le seguenti funzioni 

LOG: logaritmo in base 10 

LOG (x) è equivalente a LN(x)/LN(10) 

DIV: restituisce la parte intera del risultato di una divisione 
A DIV B 
va cambiato in 
INT (A/B) 

MOD: fornisce il resto dopo una divisione intera: 
ad esempio: 

21 MOD 5 

restituisce 1. In generale: 

A MOD B 
va cambiato in 

A - B*INT (A/B) 
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ASC, CODE 


ASC(X$) dà il valore decimale del codice del primo carattere della 
stringa X$ ed è equivalente a CODE. Se state convertendo un program¬ 
ma scritto per lo ZX 80 e lo ZX 81, fate attenzione che i codici dei loro 
caratteri sono differenti da quelli usati nello Spectrum, il quale usa gli 
standard ASCII per le lettere, i numeri ed i simboli più comuni. 


END 

Deve essere sostituito da STOP. 


FOR-TO-STEP-NEXT. 

Alcuni BASIC permettono di usare un nome di variabile a più caratteri 
per il controllo di un ciclo FOR-NEXT. Lo Spectrum non lo fa. Un picco¬ 
lo problema potrebbe sorgere dal fatto che molte versioni BASIC ese¬ 
guono sempre, almeno una volta, le istruzioni che stanno tra FOR e 
NEXT, anche se il valore iniziale della variabile di controllo è maggiore 
del valore limite. Per cui 

3,0 FOR 1*1 TO 0 
S0 PRINT "LINER 30" 

30 NEXT I 

provocherebbe in altri casi la stampa di “LINE 20”, ma non con lo Spe¬ 
ctrum. Vi sono dei BASIC che tralasciano addirittura il nome della va¬ 
riabile dopo il NEXT in quanto presumono che si tratti della variabile u- 
sata dal FOR più recènte. Lo Spectrum non ammette neanche questo. 


GET, GET$, INKEY$ 

In alcuni BASIC, un’istruzione del tipo: 

GET fi* oppure GET fi oppure LET fi*»GET* 
oppure LET fi“GET 

farà attendere il computer finché l’utente non avrà premuto un tasto, e 
quindi ritornerà una stringa costituita da un solo carattere (oppure dal 
codice numerico) che rappresenta il tasto premuto. 
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L’istruzione INKEY$ dello Spectrum è analoga, ma non attende la 
pressione di un tasto; per ottenere ciò si dovrà aggiungere una piccola 
routine. 

10 LET A*-INKEY*: IF R*i-" ** THEN GO TO 10 
10 LET ««CODE INKEY»: IF R-0 THEN GO TO 10 

Alcuni computer hanno la funzione INKEY$(X) che li fa attendere 
finché venga premuto un tasto, ma solo per un tempo X (espresso in 
decimi o centesimi di secondo a seconda della macchina). 

Questa istruzione può essere sostituita dalla riga 

10 PAUSE X: LET fi*-INKEY* 

poiché la pressione di un qualsiasi tasto pone fine alla pausa (PAUSE). 


GO TO, GO SUB 

Alcuni BASIC non permettono un GO TO o un GO SUB calcolato co¬ 
me il GO TO A*100 dello Spectrum. Traendo vantaggio da questa pos¬ 
sibilità, sarete in grado di semplificare il programma. Certi dialetti inclu¬ 
dono una etichetta (label) all’inizio di una riga, immediatamente pri¬ 
ma, o dopo, il numero della linea stessa. 

Questa etichetta, che di solito ha un nome simile a quello delle varia¬ 
bili, può essere seguita da un punto e virgola e viene usata dopo un GO 
TO o un GO SUB, al posto del numero di linea che costituisce il punto 
d’arrivo. Esempio 

10 GO TO R 

100 A;LET C-D 

che va convertita in 

10 GO TO 100 

100 LET C-D 

Diversi BASIC utilizzano le forme “ON..GOTO" oppure “ON..GO- 
SUB” le quali fanno eseguire al programma un GOTO o un GOSUB ver- 
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so una linea in funzione del valore di una variabile. Ad esempio 
ON I GO TO 180,105,130 

determinerà un salto alla riga 100 se 1=1, alla riga 105 se 1=2 o alla ri¬ 
ga 130 se 1=3. 

Secondo le esigenze, queste forme possono essere sostituite da un 
GO TO (o un GO SUB) calcolato, oppure da una sequenza di righe di 
programma IF-THEN-QOTO. Con un po' di abilità potrete utilizzare l’o¬ 
peratore AND, cosicché la versione Spectrum della linea suddetta, 
sarà 

GO TO <100 RND I«l>+<105 AND I«2>+<130 AND I«3> 

IF-THEN-ELSE 

Molti BASIC non danno importanza al fatto che venga o meno inclu¬ 
sa la parola THEN.cosicché vi potreste trovare nella situazione seguen¬ 
te 

IF A-B GO TO 100 
IF A*«"SI" PRINT"NO" 

Osservate che i BASIC differiscono tra loro nell’interpretazione di un 
valore come “vero” o come “falso”; per esempio 

IF A THEN PRINT '•VERO" 

Scriverà “VERO” su uno Spectrum se “A” ha un qualsiasi valore che 
non sia 0. Ciò potrebbe anche non accadere per altri BASIC che po¬ 
trebbero usare valori negativi per “falso” e il valore 0 per “vero”. Tal¬ 
volta è possibile trovare ELSE, che è una delle appendici più utili della 
costruzione IF..THEN. Esempio 

IF A>B THEN PRINT "Piu' ©rande A" ELSE PRINT 
"Piu' Piccolo A" 

che, nel BASIC dello Spectrum, si dovrebbe scrivere 

10 IF A>B THEN PRINT "Piu' ©rande A": GO TO 12 

11 PRINT "Piu' Piccolo A" 

12 - 

o anche 

10 PRINT <"Piu' ©rande A" AND A>B)+<"Piu' piccolo 
A" AND A<-B) 
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INSTR (A$, B$) 

È una funzione molto utile che controlla se B$ è compresa in A$, In 
caso positivo, la funzione vi dice a quale carattere di A$ ha inizio B$ 

INSTR<"SINCLAIR" , "IN"> 

darà come risultato 2. Se B$ non viene trovato in A$, viene ritornato il 
valore 0. 

Per svolgere questa funzione col BASIC dello Spectrum, si rende ne¬ 
cessaria una speciale routine 

10 POR A=0 TO LEN R*-LEN B* 

20 IF B$cR*(fi+l TO A+LEN B*> T 
HEN LET RsR + 1 : GO TO 4.0 
30 NEXT A : LET Rs0 
40 REM - - - 

che equivale a 

LET A«INSTR<A*,B*> 

LEFT$, MID$, RIGHTS 

Tali funzioni si trovano in molte versioni di BASIC. Esse agiscono su 
di una stringa e danno come risultato una parte di essa. 

LEFT$(X$,Y) darà i primi Y caratteri di X$; il suo equivalente nello 
Spectrum è X$(TO Y). 

RIGHT$(X$, Y) fornisce il numero Y di caratteri che si trovano 
più a destra nella stringa X$. La sua traduzione per lo Spectrum è 
X$(LEN X$—Y+1 TO). 

MID$(X$,Y,Z) fornisce il numero Z di caratteri della stringa X$ che 
parte dell’Y-esimo carattere. Ciò equivale a X$(Y TO Y+Z—1). 

LET 

In molti BASIC, la parola LET può essere omessa, ad esempio 

10 A*100 

Per lo Spectrum, l’espressione dovrà essere riscritta nel seguente 
modo 

10 LET A-100 
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MAT 

Le versioni di BASIC più sofisticate hanno comandi che permettono 
di operare direttamente sulle matrici. Esempio 

10 DIM R<X,Y> 

20 DIM B<X,Y> 

100 MRT fi-B 


rende tutti gli elementi della matrice A( ) uguali ai corrispondenti ele¬ 
menti della matrice B( ). Per ottenere il medesimo risultato sullo Spe- 
ctrum è necessaria una speciale routine: 


100 POR p«l TO X: FOR q»l TQ Y 

101 LET R <p,q)»B(p 

102 NEXT q: NEXT P 


PEEK, POKE, USR, CALL, LINK 

LINK e CALL sono analoghe ad USR, in quanto richiamano una routi¬ 
ne in linguaggio macchina, ma esse non trasferiscono alcun valore al 
programma BASIC che ha effettuato la chiamata. L’effetto di questi co¬ 
mandi dipende interamente dalla particolare macchina che viene usa¬ 
ta. Per convertire un programma che contenga una qualsiasi di queste 
istruzioni, allo scopo di farlo funzionare sullo Spectrum, dovrete scopri¬ 
re cosa esattamente debba fare il comando, per poi scrivere l’istruzio¬ 
ne dello Spectrum in grado di fare la stessa cosa. 


PLOT, DRAW 

Sembra che ciascuna versione di BASIC in possesso delle funzioni di 
disegno impieghi una forma diversa di istruzioni PLOT e DRAW. Tutto 
quello che potete fare è trovare i compiti che avevano le istruzioni origi¬ 
nali e scrivere una routine Spectrum che sia in grado di farli ugualmen¬ 
te. 
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PRINT 

Le istruzioni di stampa dovranno spesso essere cambiate, per far 
uso del tracciato di schermo dello Spectrum. Vi potrà capitare anche di 
trovare funzioni CHR$ usate entro istruzioni PRINT, per la visualizza¬ 
zione di codici speciali di controllo, o simboli grafici. Queste funzioni 
differiscono da un computer all’altro. PRINT USING è un comando mol¬ 
to potente, disponibile solo in alcuni BASIC. Esso permette al program¬ 
matore di controllare il formato della stampa, secondo una configura¬ 
zione inserita in una sezione del programma. Tale configurazione è, di 
solito, destinata a specificare la spaziatura, la giustezza di destra e di 
sinistra degli stampati, nonché il numero delle cifre presenti dopo la vir¬ 
gola decimale. 


PROCedure 

Il BASIC dello Spectrum vi permette di definire una nuova funzione 
con una sola riga di programma, come 

DEF FN i<x,y)*INT((x+yy2> 

Alcuni BASIC, invece, permettono una definizione della funzione su 
righe multiple 

DEF FN *<x,y) 

LET s-0 
FOR TO y 
LET s«=s+k 
NEKT s 

38 ^ 

che darà come risultato la somma dei numeri da x a y. 

Ma esiste anche un’altra costruzione, piuttosto simile, usata in alcu¬ 
ne forme progredite di BASIC e conosciuta come “procedura”. 

Questa è un incrocio tra una funzione e una subroutine, in quanto 
può usare variabili fittizie, come nel caso di una funzione, mentre il pro¬ 
gramma viene scritto come se fosse una subroutine. La procedura è 
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definita da una sezione di programma, che inizia con la parola DE- 
FPROC, seguita da un nome e termina con la parola ENDPROC. Un e- 
sempio potrebbe essere 

DEF PROC pr intot-K x,y,z) 

PRINT "Totale • ";x+y+z 
ENDPROC 

Tale forma può essere inserita nel programma, quando necessario, 
semplicemente scrivendo il nome della procedura seguito dagli effettivi 
valori sui quali si deve operare. Di conseguenza le istruzioni 

printotl <5,6,20> 
printotl <FLB,C> 

stamperebbero rispettivamente il valore 31 e la somma di A, B e C. 


RND 

In certi BASIC, l’istruzione RND deve essere seguita da un numero 
posto tra parentesi, per esempio 

LET R*RND<1 > 

Detto numero può, di solito, essere ignorato, tranne quando il pro¬ 
gramma riguarda un BASIC in grado di elaborare soltanto valori interi 
(come il BASIC dello ZX80 da 4K). In questi casi, RND(n) fornirà un 
valore intero casuale compreso tra 1 e “n” oppure tra 0 e ’’N—1”. 


Concatenazione di Stringhe 

Alcuni BASIC impiegano il simbolo “s” oppure “!” per concatenare 
due stringhe 

LET Re«BO 8. CO oppure LET R$">Be ! CO 
equivalgono all’istruzione dello Spectrum 
let Re«Be+ce 
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REPEAT/DO-UNTIL 

È questa una struttura che fa ripetere le istruzioni comprese tra le 
parole chiave REPEAT e UNTIL, fino a che non risulti vera l’espressione 
condizionale associata alla parola UNTIL. 

Esempio 

10 REPERT 

20 INPUT "Nome";n* 

30 UNTIL r.*»"Gino Rossi*' 

Il modo più semplice per adattare una tale funzione allo Spectrum, è 
quello di cambiare REPEAT in una REM e la UNTIL in un IF-THEN-GO 
TO. Per esempio 

10 REM 

20 INPUT "Nor«#";in* 

30 IF r.*<>"Gino Rossi" THEN GO TO 10 

Spesso è possibile trovare 

REPERT - UNTIL 0 

REPERT - UNTIL FRLSO 

ed è un ciclo senza fine. Basterà sostituire l’istruzione UNTIL con un 
GO TO non condizionato. Alcuni BASIC usano ia parola DO invece di 
REPEAT. 


VAL 

La funzione VAL dello Spectrum è scomoda in quanto ferma il pro¬ 
gramma se il suo argomento stringa non contiene una espressione nu¬ 
merica perfettamente valida. Altri BASIC si limitano a rendere il valore 
0 . 

? 


Usato da molti BASIC come abbreviazione dell’istruzione PRINT. 
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Questo libro è rivolto a tutti i possessori di uno Spectrum, siano 
essi principianti o programmatori esperti. 

Nel testo sono spiegate le caratteristiche principali del BASIC 
Spectrum e viene mostrato come si possono scrivere program¬ 
mi di giochi o di applicazioni più serie. 

Sono riportati i listati di oltre cinquanta programmi, tutti com¬ 
mentati dettagliatamente, e sono incluse tre appendici con alcu¬ 
ne utilissime informazioni sulle locazioni di memoria dello Spec¬ 
trum. 

Chiunque voglia imparare il BASIC dello Spectrum e cerchi truc¬ 
chi ed effetti “speciali" per i suoi programmi, troverà sicuramente 
interessante questo libro. 
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